Code:
--------------------
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
Code:
--------------------
ActiveSheet.EnableAutoFilter = True
--------------------
etc...and you're there.


--
MartinShort

Software Tester
------------------------------------------------------------------------
MartinShort's Profile: http://www.excelforum.com/member.php...o&userid=22034
View this thread: http://www.excelforum.com/showthread...hreadid=374471