Macro to 'toggle' Auto Filter

[thunderfoot]

I want one macro button to toggle 'Auto Filter' on & off. What code do I need to test if 'Field 3' is filtered or not?

The Filter details are:

Selection.AutoFilter Field:=3, Criteria1:="1"

AND

Selection.AutoFilter Field:=3

 

[Von Pookie]

Check out the FilterMode property.

Sub ToggleAutofilter()

If ActiveSheet.FilterMode = True Then
    Selection.AutoFilter field:=3
Else
    Selection.AutoFilter field:=3, Criteria1:="1"
End If

End Sub