Excel VBA ShowAldata -Fehler

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