This will perform on sheets as they are arranged in the workbook. Post YOUR
code for comments along with which 10 sheets you want. Or, do you only have
10 sheets? More detail.

Sub doeachsheet()
For i = 1 To 3
MsgBox Sheets(i).Name
MsgBox Sheets(i).Range("a1")
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Harshad" wrote in message
...
I have macro, which i want to run on sheet1 to sheet10 by one go.