Excel 2013 VBA Clear All Filters macro

If the sheet already has a filter on it then:

Sub Macro1()
    Cells.AutoFilter
End Sub

will remove it.

Try this:

If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData

ShowAllData will throw an error if a filter isn't currently applied. This will work:

Sub ResetFilters()
    On Error Resume Next
    ActiveSheet.ShowAllData
End Sub

Related