Excel VBA ShowallData Error

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