macro not finishing task

this macro works perfect, but does not finish creating??

If a c is in col O macro should create a new sheet.
If P is col O it prints.

The only problem is when I try to create a big list. It doesn't finish.
Any Ideas.

Hello erock24,

How big of list are you referring to? What error message and number to you get or does the program freeze?

Thanks,
Leith Ross

See if this works for you:

                '''''''''''''''''''''''''''''''''''''''''''''''''
                '                 REMOVE THIS                   '
                '''''''''''''''''''''''''''''''''''''''''''''''''
                '                                               '
                'With InvSht                                    '
                '    .Cells(1, 14).Value = c.Value              '
                '    .Copy after:=Worksheets(Worksheets.Count)  '
                'End With                                       '
                'On Error Resume Next                           '
                '''''''''''''''''''''''''''''''''''''''''''''''''
                
               ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
               '                  ADD THIS                                    '
               ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
               '                                                              '
                ActiveWorkbook.Worksheets.Add after:=Worksheets(Sheets.Count) '
                InvSht.Cells(1, 14).Value = c.Value                           '
                InvSht.Cells.Copy                                             '
                ActiveSheet.Range("A1").PasteSpecial                          '
               ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

I edited code with your change, it works but I loose my print options.
I need to have those new sheets print to 1 page.
I added code I thought would do it but it doesn't. What have I done wrong??

With Main
        Set rng = .Range(.Cells(12, 2), .Cells(.Rows.Count, 2).End(xlUp))
        For Each c In rng
            R = c.Row
            If .Cells(R, 12).Value = 1 And .Cells(R, 15) = "C" Then
                ActiveWorkbook.Worksheets.Add after:=Worksheets(Sheets.Count)
                InvSht.Cells(1, 14).Value = c.Value
                InvSht.Cells.Copy
                ActiveSheet.Range("A1").PasteSpecial
                On Error Resume Next
                ActiveSheet.Name = Cells(7, 9).Value
                ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
                ActiveSheet.PageSetup.PrintArea = "$B$2:$I$46"
                ActiveSheet.PageSetup.FitToPagesWide = 1
                ActiveSheet.PageSetup.FitToPagesTall = 1
                Application.CutCopyMode = False
                intPrintCounter = intPrintCounter + 1
            End If
        Next c
    End With

How big of list are you referring to? What error message and number to you get or does the program freeze?

It doesn't freeze it just doesn't produce all the sheets it should.

Ikaabod's edit fixed that problem, but now I have a print set up issue. i guess since the copy method is different. I don't really know why Ikaabod's edit works.

And that's amazing.

Works perfectly Thank you very much for your time and help.