Dim MySheet As Worksheet
For Each MySheet in Activeworkbook.Worksheets
Cells.Sort Key1:=Range("A3"),Order1:=xlDescending, Header:=xlGuess
Next MySheet


--
__________________________________
HTH

Bob

"NPell" wrote in message
...
In a macro can i do something like..

Dim MySheet as Variant
MySheet = ("Sheet1", "Sheet2")
For Each Sheet in MySheet
Sort Range("A3").Descending
Next Sheet

(thats obviously not the sort code, but i didnt know the full version
of it)

I have 15 sheets, and i dont want loads of code just to sort.

Thanks.