Removing all filters

I have a workbook that has either autofilters or advanced filters in it and a button called "Show All" that I would like to show all the data and remove the autofilter. My code (below) doesn't have an error catch if there is no filter when they click on the button and if it's an autofilter, it shows all but doesn't remove the autofilter (I have to click on the button twice). Here's my code;

Private Sub CommandButton2_Click()
'Show all (Remove filters)
If ActiveSheet.FilterMode Then
   ActiveSheet.ShowAllData
   Exit Sub
End If

    Selection.AutoFilter
    Range("A5").Select  'to position active cell

End Sub

I'm working in Excel 2000. Thanks in advance.

I reformatted my code so

Private Sub CommandButton2_Click()
'Show all (Remove filter)

Worksheets("LogIn").Protect "testing", True, True, True, userinterfaceonly:=True
If ActiveSheet.FilterMode = False Then
ActiveSheet.AutoFilterMode = False
Exit Sub
End If

   ActiveSheet.ShowAllData
   ActiveSheet.AutoFilterMode = False
   
    Range("A5").Select  'to position active cell

End Sub

This works if
1) I have no filters running
2) I have the advance filter running
When there's an autofilter, it gets to this line and gives this error

ActiveSheet.AutoFilterMode = False (the 2nd one)

Runtime error 1004
"Unable to set the autofiltermode property of the worksheet class"

Your post does not comply with Rule 2 of our Forum RULES. Don't post a question in the thread of another member -- start your own thread. If you feel it's particularly relevant, provide a link to the other thread.