Clear filters macro not working

[imatomic]

I recorded these filter events and they are stored in one module. It malfunctions on "ActiveSheet.ShowAllData". Funny thing is as I tested them they worked until I got to the fifth macro. Now none will run?? I'm perplexed.

End goal was to tie these to data valadation selections.

Sub Clear_Filter()
    ActiveSheet.ShowAllData
End Sub

Sub One()
    ActiveSheet.ShowAllData
    ActiveSheet.Range("$A$8:$Q$200").AutoFilter Field:=3, Criteria1:="1"
End Sub

Sub Two()
    ActiveSheet.ShowAllData
    ActiveSheet.Range("$A$8:$Q$200").AutoFilter Field:=3, Criteria1:="2"
End Sub

Sub Three()
    ActiveSheet.ShowAllData
    ActiveSheet.Range("$A$8:$Q$200").AutoFilter Field:=3, Criteria1:="3"
End Sub

Sub A()
    ActiveSheet.ShowAllData
    ActiveSheet.Range("$A$8:$Q$200").AutoFilter Field:=4, Criteria1:="a"
End Sub

Sub B()
    ActiveSheet.ShowAllData
    ActiveSheet.Range("$A$8:$Q$200").AutoFilter Field:=4, Criteria1:="b"
End Sub

Sub C()
    ActiveSheet.ShowAllData
    ActiveSheet.Range("$A$8:$Q$200").AutoFilter Field:=4, Criteria1:="c"
End Sub

Sub D()
    ActiveSheet.ShowAllData
    ActiveSheet.Range("$A$8:$Q$200").AutoFilter Field:=4, Criteria1:="d"
End Sub

Sub E()
    ActiveSheet.ShowAllData
    ActiveSheet.Range("$A$8:$Q$200").AutoFilter Field:=4, Criteria1:="e"
End Sub

Sub F()
    ActiveSheet.ShowAllData
    ActiveSheet.Range("$A$8:$Q$200").AutoFilter Field:=4, Criteria1:="f"
End Sub

Sub G()
    ActiveSheet.ShowAllData
    ActiveSheet.Range("$A$8:$Q$200").AutoFilter Field:=4, Criteria1:="g"
End Sub

Looking for any suggestions. Thanks

 

[Domenic]

Try replacing...

ActiveSheet.ShowAllData

with

[COLOR=darkblue]If[/COLOR] ActiveSheet.FilterMode [COLOR=darkblue]Then[/COLOR] ActiveSheet.ShowAllData

or

[COLOR=darkblue]With[/COLOR] ActiveSheet
    [COLOR=darkblue]If[/COLOR] .FilterMode [COLOR=darkblue]Then[/COLOR] .ShowAllData
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]

Hope this helps!

 

[imatomic]

Beautiful! Thank you Domenic.

 

[Domenic]

You're very welcome!