Excel VBA ShowallData ошибка

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