Sub CommandButton1_Click()

Dim counter As Integer

For counter = 3 To 66
Sheets.Add
*Activesheet.Name = counter *<== change
Next counter
End Sub
Hope that help

OverAC


--
OverAC
------------------------------------------------------------------------
OverAC's Profile: http://www.excelforum.com/member.php...o&userid=32396
View this thread: http://www.excelforum.com/showthread...hreadid=521661