Доброго всем времени суток. Собственно вопрос в названии. Возникла необходимость разом снять фильтр со всех( а их 21 лист) листов книги. Попробовал накропать что то самостоятельно, но не хочет работать по всем листам: только на активном.Вопрос: что не так сделал?
[vba]Код
Sub Макрос1()
Dim SO As Long, SO1 As Long, sh As Worksheet
SO = Cells(15, Columns.Count).End(xlToLeft).Column
SO1 = Cells(Rows.Count, 2).End(xlUp).Row
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "План" And sh.Name <> "литье" Then
With sh
ActiveSheet.Range(Cells(17, 1), Cells(SO1, SO)).AutoFilter Field:=2
End With
End If
Next sh
End Sub
[/vba]