[Greyman]

Mleonid

Код:

 
Sub Макрос1() 
 * * * *Sheets.Add(after:=Sheets(Sheets.Count)).Name = Sheets.Count + 1 
End Sub

Так подойдет?...