Macro to clear filters

[Rob_010101]

Hello,

Sub Reset_Filters()
'
' Reset_Filters Macro
' Resets all filters
'

'
    ActiveSheet.ShowAllData
End Sub

If there are no filters applied, I am getting the below error message when the macro is run (it's assigned to a button):

And when I debug

Kind Regards

 

[Joe4]

One simple way to ignore the error:

On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0

 

[Rob_010101]

One simple way to ignore the error:

On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0

Thanks very much

 

[Joe4]

You are welcome!
Glad I was able to help.