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