Макрос в Екселе

[Mleonid]

Нужен макрос выполн. следующее.
Открываешь файл. Имеется лист, название "1". Выполнить макрос - появится новый лист в конце...название "2". Завтра выполняещь макрос - лист "3". Подскажите как?



Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 25.02.2004 (1)
'

'
   Sheets("1").Select
   Sheets("1").Copy After:=Sheets(1)
   Sheets("1 (2)").Select
   Sheets("1 (2)").Name = "2"
End Sub

[Greyman]

Mleonid

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

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