VBA Clear Table Filters error

[AT_TreeFortConsulting]

Hi all,
I created a macro to clear all filters in a table, but if the filters are already cleared and I click the button, I get a Run-time error '1004': ShowAllData method of Worksheet class failed. Is there a way to have it just show a message that the table is already cleared of filters without getting an error?

The VBA is below:

Sub clear_all_filter()
'
' clear_all_filter Macro
'

'
Range("tbl_daily_tracker[[#Headers],[Activity]]").Select
ActiveSheet.ShowAllData
Selection.End(xlToLeft).Select
Selection.End(xlDown).Select
End Sub

 

[AT_TreeFortConsulting]

I figured it out. Thanks all!

 

[smozgur]

I figured it out. Thanks all!

Good to hear you figured it out.
If you would like to post the solution then it is perfectly fine to mark your post as the solution to help future readers. Otherwise, please do not mark a post that doesn't contain a solution.

 

[AT_TreeFortConsulting]

I figured out a solution that works:

Sub clear_all_filter()
'
' clear_all_filter Macro
'
    Range("tbl_daily_tracker[[#Headers],[Activity]]").Select
    ActiveSheet.AutoFilter.ShowAllData
    Selection.End(xlToLeft).Select
    Selection.End(xlDown).Select
End Sub