Excel VBA ativar o AutoFilter

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