Counting the number of columns that have a filter applied?

[JugglerJAF]

Is it possible in VBA to write some code that will return the number of columns within the current region of the active cell that have a filter applied to them?

Example: I have data from A1:E35 and filters applied to column B for one value, and column D for another value. In this instance I'd want to return a value of 2 as there are filters applied to 2 columns (B and D).

I'm not looking to count the number of rows returned by the filter, just the number of columns that have a filter applied to them.

 

[bebo021999]

Is the filter (Advance Filter") from VBA or Data/Filter on worksheet?

 

[bebo021999]

Try:

Option Explicit
Sub test()
Dim count&, i&
If ActiveSheet.AutoFilterMode Then
    With ActiveSheet.AutoFilter
        For i = 1 To .Filters.count
            If .Filters(i).On Then count = count + 1
        Next
    End With
End If
Debug.Print count
End Sub

 

[JugglerJAF]

Thanks bebo - I was trying things like "HasFilter" and "IsFiltered" without any luck! Marked your reply as solution. Much appreciated!