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