Excel - No funciona

Basandome en la pregunta de un forero hice lo siguiente. Cree tres hojas con datos iguales, con autofiltors. Luego con una macro intente activar el primer filtro con un mismo criterio para todas las hojas, pero no resulta, que esta mal?

Karla

Sub Macro1()

Dim hoja As Worksheet
For Each hoja In Worksheets

Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:="aa"
Next
End Sub

Te falto seleccionar la hoja (cada hoja en realidad):

Sub Macro1()

Dim hoja As Worksheet
For Each hoja In Worksheets
hoja.Select
Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:="aa"
Next
End Sub

Abraham