Excel VBA ShowallData Błąd

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