how to enable autofilter in excel vba code example

Example: excel vba activate autofilter

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