Check Auto Filter - if on, turn off before running macro

  • Thread starter Thread starter Munchkin
  • Start date Start date
M

Munchkin

I can't figure out how to do this. Before my macro runs I want to check to
see if AutoFilter is turned on. If it is I want to turn it off - if it isn't
then do nothing.



Rows("2:4").Select
Selection.EntireRow.Hidden = False
Range("A2").Select
Selection.ClearContents

Range("I2").Select
'Application.Run "'NamedInsuredList 2 11-2009.xls'!CheckBoxFilter_Click"
Range("PolicyList").Sort Key1:=Range("A7"), Order1:=xlAscending,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers

Range("A2").Select
 
You can test the AutoFilterMode property of the worksheet... it will be True
if the AutoFilter is active and False otherwise. You can set the property to
False in your code to turn AutoFilter'ing off (but you cannot set the
property to True to turn it back on though).
 
Can you display the code? I don't know what it is & can't seem to be able to
figure it out.
 
Here's what you need.

Sub AutoFilterSetToOff()
If ActiveSheet.AutoFilterMode = True Then
ActiveSheet.AutoFilterMode = False
End If
End Sub

HTH
 
If this is all the OP wants to do, then I would probably do away with the
test and simply always set it to False no matter what its current setting
is...

Sub AutoFilterSetToOff()
ActiveSheet.AutoFilterMode = False
End Sub
 
Back
Top