Снять автофильтр с нескольких листов разом

[Dophin]

Самое простое

Sub pp()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
On Error Resume Next
If ws.AutoFilterMode Then ws.ShowAllData 'AutoFilterMode = False
Next
on error goto 0
End Sub

[kzld]

Сообщение от Dophin

Самое простое

Снимается автофильтр со всех листов отлично, а вот как заставить его установиться - непонятно.
И как макросу "обьяснить" , что я желаю в данный момент поставить или снять автофильтр

[The_Prist]

Сообщение от kzld

Снимается автофильтр со всех листов отлично, а вот как заставить его установиться - непонятно.

Sub pp()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
If not ws.AutoFilterMode Then ws.Usedrange.AutoFilter
Next
End Sub