try this

Sub all_sheet()
Dim ws As Workbook
For x = 1 To Worksheets.Count
Sheets(x).Select
'your code........
Next
End Sub




On Oct 17, 3:53*pm, Harshad wrote:
I have macro, which i want to run on sheet1 to sheet10 by one go.