VBA Counting Number of AutoFilter Columns

[AliCat]

Is there a way in VBA to count the number of columns holding the filter symbol?
I currently have a Reset macro to remove all filters in one go:

Selection.AutoFilter Field:= i

and cycle through this a fixed number of times. Some of my sheets may only have 4 columns filtered and some could have as much as 18 (although the're not all aplied at once).
It would be helpful to know one way or the other if this is possible.
Thanks in advance.

 

[RoryA]

If you just want to remove the filter altogether, you can use:

Sub ClearFilters()
   With ActiveSheet
      If .AutoFilterMode Then .AutoFilter.Range(1).AutoFilter
   End With
End Sub

or if you simply want to stop filtering, but leave the autofilter set up, you can use:

Sub ShowAll()
   With ActiveSheet
      If .FilterMode Then .ShowAllData
   End With
End Sub

HTH

 

[AliCat]

Your method 2 suits just fine I just want to remove multiple filters in one go so that I can start again and was aware that I was looping through filters that might not exist.
Thanks.