Сообщество Чайников

Вопрос

Необходимо написать макрос, который создает новый лист и присваивает ему имя, которое записано в некоторой ячейке одного из имеющихся листов. Значение в исходной ячейке меняется (там записана дата). Пробовал записать такой макрос, но при его выполнении листу всегда присваивается то имя, которое было при написании.

Ответ

Макрос:

Sub Макрос4()
'
' Макрос4 Макрос
' Макрос записан 30.10.2002 (dima)
'
'
Dim aSheet As String
aSheet = ActiveSheet.Name
Sheets.Add after:=Worksheets(Worksheets.Count)
Worksheets(aSheet).Select
' имя берется из выделенной ячейки если надо из другой, указать ее
' range("a1").select
Sheets(Worksheets.Count).Name = Selection.Text
Selection = Now()
End Sub

Из конференции Expert_FAQ