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.
Looking for any suggestions. Thanks
End goal was to tie these to data valadation selections.
Code:
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