If not IsError VBA problem

[Sinbad]

Hi all,

I´m trying to build in an error check for a simple macro that will clear all filters. For this I created a Userform, added some bottons, assigned the relevant Makros to them and Bob´s your Unlcle.

Works great bu then I noticed if I don´t have any filters set and click the "Clear Filter" button, it throws me an error.

So I´m trying to catch and test for the error and in the event that it happens, it should just jump to the end of the makro.

Makro used to be this

Sub RemFilter()
    ActiveSheet.ShowAllData
End Sub

Now I´m trying to cathc the error and thought this should work, but it doesnt

Sub RemFilter()
    If Not IsError(ActiveSheet.ShowAllData) Then
    ActiveSheet.ShowAllData
    Else
    End If
End Sub

Any suggestions ? The error code is 1004

 

[xenou]

IsError is a formula (used in Excel cells). Its not a vba function. Your simplest, and best, strategy is just to ignore the error:

Sub RemFilter()
    On Error Resume Next
    ActiveSheet.ShowAllData
End Sub

The VBA help file is a good place to start reading about Error Handling, by the way - that's what you are doing here.

ξ

 

[VoG]

Try

Sub RemFilter()
    On Error Resume Next
    ActiveSheet.ShowAllData
    On Error GoTo 0
End Sub

 

[Sinbad]

Hi Xenou, Thanks for a super fast reply.

Might find this interesting, I found a oneliner that does the job

    If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

 

[xenou]

Yes, that's good - don't need to worry about errors at all with that one.
ξ