Автофильтр с VBA в более листов

Question

я хочу, чтобы отфильтровать более чем на одном листе для одного конкретного пункта, например, «Гарри»

Мой макрос не говорит, что я не прав, но ничего не происходит ..

Sub New_Marko_for_selection() 

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

end sub 

с наилучшими пожеланиями

Answer 1

Вот типичный код для применения автофильтра для нескольких листов:

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 

Примечание:

• я указал столбец
• я список необходимых листов в Array()