Hi John

Try this from should get you what you want. Need to change the sheet
name and insert your actions.

Take care

Marcus

Sub autofil()

With Worksheets("Sheet1")
If .AutoFilterMode Then
'Your code here
End If
End With

End Sub