Dear MIke,
Thank you,
But still sheet 4 comes before sheet3.

Harshad

"Mike H" wrote:

Maybe

Sheets.Add after:=ActiveSheet

Mike

"Harshad" wrote:

When i run following macro on the sheet 1, all the sheet comes in reverse
direction, means, sheet6, sheet5, sheet4,....Sheet1. i want it as sheet1,
sheet2, sheet3, sheet4, sheet5, sheet6.............etc

The macro i got from this discussion group is as:

Sub Sheet_addition()
Dim i As Long
On Error GoTo endit
Application.ScreenUpdating = False
For i = 1 To 52
Sheets.Add
Next i
endit:
Application.ScreenUpdating = True
End Sub