Как сбросить все фильтры в умной таблице?

[RISagitov]

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

Ваш случай такой...

Private Sub Worksheet_Activate()
    On Error Resume Next
    ActiveSheet.ListObjects(1).AutoFilter.ShowAllData
    On Error GoTo 0
End Sub

спасибо большое, попробовал все ок
можно и без обработчика ошибок, не ругается


, я уже попытался сделать и вот что получилось
With ActiveSheet.ListObjects(1).Range.Li stObject.AutoFilter.Filters
For i = 1 To .Count
.Item(i).On = True
Next i
End With

[RAN.]

Для умной таблицы

ActiveSheet.ListObjects(1).ShowAutoFilter = False
ActiveSheet.ListObjects(1).ShowAutoFilter = True