Check for AutoFilter

[wherbjr35]

I am having some syntax issues here. I would like to check to see if AutoFilter is turned on. If it is then nothing happens. If it is not turned on, I want it on. I have this so far. I am using the msgbox to test the condition

Cells.Select
If Selection.AutoFilter = True Then
  MsgBox ("AutoFilter is ON!")
ElseIf
Selection.AutoFilter  '<----- here I want to turn them on
Endif
End sub

 

[Von Pookie]

 If ActiveSheet.AutoFilterMode = True Then
    MsgBox "AutoFilter is ON!"
Else
    MsgBox "AutoFilter is OFF!"
Endif