Error de Excel VBA ShowallData

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