Autofilter with VBA in more sheets

Question

i want to filter in more than one sheet for one specific item eg, "Harry"

My macro does not say that i am wrong, but nothing happens..

Sub New_Marko_for_selection()

Worksheets("Sheet53").Range("A1:D4").AutoFilter,Criteria1:="Harry"

end sub

Best Regards

Answer 1

Here is typical code to apply AutoFilter to several sheets:

Sub New_Marko_for_selection()
    Dim sh As Worksheet

    For Each sh In Sheets(Array("Sheet1", "Sheet3"))
        sh.Range("$A$1:$D$4").AutoFilter Field:=1, Criteria1:="Harry"
    Next sh
End Sub

Note:

• I specified the column
• I list the required sheets in the Array()