Sub testFilter()
For Each f In ActiveSheet.AutoFilter.Filters
If f.On = True Then
MsgBox "Filter is applied in one of your columns"
Exit Sub
End If
Next f
MsgBox "Filter is not applied"
End Sub
Sub testFilter()
For Each f In ActiveSheet.AutoFilter.Filters
If f.On = True Then
MsgBox "Column " & ActiveSheet.AutoFilter.Range.Resize(1, 1).Offset(, counter).Address(0, 0) & " is filtered on"
Exit Sub
End If
counter = counter + 1
Next f
MsgBox "Filter is not applied"
End Sub