ms excel vba trigger on autofilter code example

Example: excel vba activate autofilter

If Sheets("Sheet1").AutoFilterMode = False Then 
  Sheets("Sheet1").Range("A1").AutoFilter
End if