Filter multiple sheets.

[DanWatson]

I'm using this code to filter data based on a cell value:

With Sheets("A1")

.Range("A18:AM47").AutoFilter Field:=11, Criteria1:=.Range("K12").Value

End With

End Sub

I would like to run this on multiple sheets A1 through A15. Any help would be appreciated.
Thanks from a VBA novice.

 

[Chameleon64]

[COLOR=#333333]For i = 1 to 15

With Sheets("A" & i)[/COLOR]

[COLOR=#333333].Range("A18:AM47").AutoFilter Field:=11, Criteria1:=.Range("K12").Value[/COLOR]

[COLOR=#333333]End With

[/COLOR]Next i

End Sub

 

[DanWatson]

Thank you Chameleon64 - that's perfect!
Dan

For i = 1 to 15

With Sheets("A" & i)

.Range("A18:AM47").AutoFilter Field:=11, Criteria1:=.Range("K12").Value

End With

Next i[/CODE]

End Sub[/QUOTE]