Динамический фильтр. Возможно ли такое?

[EducatedFool]

Sub Delete_Filter()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.workSheets
        If ws.AutoFilterMode Then ws.ShowAllData
    Next
End Sub

Видите подчёркнутую строчку?
Это и есть проверка.

А ошибка вылетает не из-за этого кода - а из-за какого-то из ваших макросов.

[kzld]

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

Sub Delete_Filter()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.workSheets
        If ws.AutoFilterMode Then ws.ShowAllData
    Next
End Sub

Видите подчёркнутую строчку?
Это и есть проверка.

А ошибка вылетает не из-за этого кода - а из-за какого-то из ваших макросов.

Двенадцать однотипных листов.
На 7 строке, на всех листах автофильтр.
На листе 2 и на листе 6 автофильтр включён, на остальных выключен
При попытке выполнить макрос - вылетает.
Закрашивает жёлтым ws.ShowAllData