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
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