“VBA проверьте, включен ли фильтр и выключите” Ответ

VBA проверьте, включен ли фильтр и выключите

Public Sub ClearFilter()
  If ActiveSheet.FilterMode = True Then
    ActiveSheet.ShowAllData
  End If
End Sub