try this macro

Sub insert_sheet()
inrtsh = InputBox("Enter numbers to insert sheets")
For i = 1 To inrtsh
Sheets.Add
ActiveSheet.Name = i
Next
End Sub


"via135" wrote:

hi!

is there any way to insert any number of worksheets i wish
at different times..?!

-via135