I was asked by a colleague if there was a way to discover what filters were on so I came up with this bit of code to flash the filtered columns:
Sub huntTheFilter2()
On Error GoTo Jumpout
FiltCols = 0
For Each filt In Worksheets(ActiveSheet.Name).AutoFilter.Filters
If (filt.On) Then...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.