VBA Debug Error message box

[mamady]

Hi All,

I have the following code to clear out filters of a selected range, which works fine after assigning it to a button. However, if the button is clicked again I get a debug error. How can I disable that?

Sub ClearFilter()

' ClearFilter Macro

Application.ScreenUpdating = False
    Rows("2:2").Select
    ActiveSheet.ShowAllData
    Range("A1").Select
Application.ScreenUpdating = True

End Sub

Thank you in advance

 

[Yongle]

Try this

Sub ClearFilter()
On Error Resume Next
   ActiveSheet.ShowAllData
On Error GoTo 0
   Range("A1").Select
End Sub

 

[mamady]

Try this

Sub ClearFilter()
On Error Resume Next
   ActiveSheet.ShowAllData
On Error GoTo 0
   Range("A1").Select
End Sub

Works like a charm

thank you very much, you are a star

 

[smozgur]

@mamady - Glad to hear your problem is solved.

I changed the marked solution post in this question. Next time, please mark the post that answered your question (post #2 in this case) instead of your final post. This way, it will help future readers to find the solution quickly.

 

[mamady]

@mamady - Glad to hear your problem is solved.

I changed the marked solution post in this question. Next time, please mark the post that answered your question (post #2 in this case) instead of your final post. This way, it will help future readers to find the solution quickly.

noted, thank you