VBA code help please

[STIRRELL]

Hi, I am trying to autofilter on 2 criteria and my macro keeps throwing an error message.Auto filter method of range class failed.
I made sure the filter was not on when I ran the code.

Sub FILTER_COPY_PASTE()
Worksheets("Certify").Select
With ActiveSheet.Range("A1:AB1")
.AutoFilter Field:=6, Criteria1:="20"
.AutoFilter Field:=28, Criteria1:="X"
End With

ActiveSheet.Range("A2:X5000").SpecialCells(xlCellTypeVisible).Copy
Worksheets("20").Select.Range("A1").PasteSpecial Paste:=xlPasteAll
Worksheets("Certify").AutoFilterMode = False
End Sub

Please help what am I doing wrong?

 

[Max1616]

Perhaps try this:

Sub FILTER_COPY_PASTE()
Worksheets("Certify").Select
With ActiveSheet.Range("A1:AB1")
.AutoFilter Field:=6, Criteria1:="20"
.AutoFilter Field:=28, Criteria1:="X"
End With

ActiveSheet.Range("A2:X5000").SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("20").Range("A1")
Worksheets("Certify").AutoFilterMode = False
End Sub

I'm personally getting an error in your code due to this line:

Worksheets("20").Select.Range("A1").PasteSpecial Paste:=xlPasteAll

 

[STIRRELL]

Thank you, but my macro keeps stopping at the 2nd autofilter criteria. Do you have any other suggestions?

 

[Fluff]

That is not the same code you originally posted. Try using your original code.