AutoFilter removal

[David]

Greetings and TIA for your time
In my code, I want to test to see if AutoFilter is there on the activesheet.
If it is ,I need to switch it off, do something, then re apply the AutoFilter.
--
David

[MartinShort]

Sub isItOn()
    Dim isOn As Boolean
    If Worksheets("Sheet1").AutoFilterMode Then
        isOn = True
    Else
        isOn = False
    End If
    MsgBox "AutoFilterMode is " & isOn
End Sub

The above is taken from Microsoft's help files.
Add in

ActiveSheet.EnableAutoFilter = True

etc...and you're there.

[David]

Thanks Martin
--
David

[John Green]

ActiveSheet.AutoFilterMode

This returns True or False to indicate the status of AutoFilter

John Green

"David" <[email protected]> wrote in message
news:[email protected]...
> Greetings and TIA for your time
> In my code, I want to test to see if AutoFilter is there on the
> activesheet.
> If it is ,I need to switch it off, do something, then re apply the
> AutoFilter.
> --
> David

[David]

Thanks John
--
David