Макрос в Екселе - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Макрос в Екселе (http://forum.oszone.net/showthread.php?t=29970)

Нужен макрос выполн. следующее.
Открываешь файл. Имеется лист, название "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

Mleonid

Код:

 

Sub Макрос1() 

 * * * *Sheets.Add(after:=Sheets(Sheets.Count)).Name = Sheets.Count + 1 

End Sub

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