The error I have received is:
Run-time error 57121: application-defined or object-defined error
The portion of the code is:
Sheets("Submitted").Cells.AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
:=Range("A1:A2"), CopyToRange:=Range("A65536").End(xlUp).Offset(1, 0), Unique:=False
This macro pulls all of the rows with a certain piece of content off of each sheet and puts them in order on a new sheet.
The macro itself runs through multiple sheets successfully, but when it hits "Submitted" it is giving the error message.
Example of the part that runs successfully:
Range("A65536").End(xlUp).Offset(1, 0).Select
With Selection.Font
.Name = "Arial"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveCell.FormulaR1C1 = "IN PRESS"
Range("A65536").End(xlUp).Offset(1, 0).Select
Sheets("In Press").Cells.AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
:=Range("A1:A2"), CopyToRange:=Range("A65536").End(xlUp).Offset(1, 0), Unique:=False
Range("A65536").End(xlUp).Offset(1, 0).Select
With Selection.Font
.Name = "Arial"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveCell.FormulaR1C1 = "SUBMITTED"
Range("A65536").End(xlUp).Offset(1, 0).Select
Sheets("Submitted").Cells.AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
:=Range("A1:A2"), CopyToRange:=Range("A65536").End(xlUp).Offset(1, 0), Unique:=False
I'm not a programmer, but someone helped me prepare this code years ago. Suddenly, today this has stopped working. Can you help me resolve the problem?
Thank you very much in advance!
Bookmarks