Tuesday, July 14, 2009

Check the Autofilter whether it is on or Off

Sub CheckAutofilter()
Dim wks As Worksheet
 
For Each wks In ActiveWorkbook.Worksheets
Range("A2").Select
If Not ActiveSheet.AutoFilterMode = True Then
Selection.AutoFilter
Else
Selection.AutoFilter
End If
Next

End Sub


See the Web's breaking stories, chosen by people like you. Check out Yahoo! Buzz.

No comments:

Post a Comment