Clear filters error

[Ssreeve]

I have a macro that clears all filters which works great if there are filters to clear.
Otherwise I get an error message.

Sub ClearFilters()
'
' ClearFilters Macro
'

ActiveSheet.ShowAllData

End Sub



What can I add so if no filters are selected it will do nothing?

 

[Fluff]

Hi & welcome to MrExcel
How about

Sub Ssreeve()
   With ActiveSheet
      If .AutoFilterMode Then .ShowAllData
   End With
End Sub

 

[Ssreeve]

Thanks for responding
When I run the macro, I does not read .ShowAllData and does no clear the filters.

 

[Fluff]

If the filters are on tables try

Sub Ssreeve()
   With ActiveSheet
      If .FilterMode Then .ShowAllData
   End With
End Sub

 

[Ssreeve]

That worked (It is a table) Thank You

 

[Fluff]

You're welcome & thanks for the feedback