Как присвоить новому листу значение определенной ячейки

[clever77]

Всем доброго дня!
Подскажите как присвоить новому листу в Excel значение определенной ячейки по средствам Worksheet.
Допустим есть массив текстовых данных столбец F
Мне надо добавить новый лист с названием, которое содержится в ячейке F2
Как это сделать?
Есть прога которая просто присваивает название новому листу

Sub НовыйЛист()
Dim wsNewWorksheet As Worksheet
Set wsNewWorksheet = Worksheets.Add
wsNewWorksheet.Name = "Имя книги"
End Sub

Что надо написать после знака = в строке wsNewWorksheet.Name = , что бы присвоить листуимя которое содержится в ячейке к примеру F2?

Заранее спасибо.

[kuklp]

Sub НовыйЛист()
Dim wsNewWorksheet As Worksheet, n$
n=[f2].value
Set wsNewWorksheet = Worksheets.Add
wsNewWorksheet.Name = n
End Sub

[clever77]

Сообщение от kuklp

Sub НовыйЛист()
Dim wsNewWorksheet As Worksheet, n$
n=[f2].value
Set wsNewWorksheet = Worksheets.Add
wsNewWorksheet.Name = n
End Sub

Спасибо,
Несколько уточнений что означает $ в описании переменной
и почему Excel принимает
wsNewWorksheet.Name = n, где n=[f2].value
а присвоение на прямую
wsNewWorksheet.Name =[f2].value
нет
Я пытался последним способом не получилось, потому и создал тему

[kuklp]

1. $ - строковый тип, то же, что и as string
2. wsNewWorksheet.Name =[f2].value будет читать [f2].value из активного листа, то есть нового, где никаких данных еще нет. Поэтому заранее сохраняем [f2].value в переменную.
Можно без переменной, но тогда нужно явно указать название листа исходника:
wsNewWorksheet.Name =sheets(name_of_sheet).[f2].value

[clever77]

Сообщение от kuklp

1. $ - строковый тип, то же, что и as string
2. wsNewWorksheet.Name =[f2].value будет читать [f2].value из активного листа, то есть нового, где никаких данных еще нет. Поэтому заранее сохраняем [f2].value в переменную.
Можно без переменной, но тогда нужно явно указать название листа исходника:
wsNewWorksheet.Name =sheets(name_of_sheet).[f2].value

Теперь понятно, Спасибо.

[SAS888]

Можно проще:

Sheets.Add.Name = [F2]

[badayal]

Sub ИмяЛиста()
Dim NewSheet As Worksheet
MyNameSheet = Range("A2") ' получаем значение из активного листа из ячейки "A2"
'Или из указанного листа из ячейки "A2"
MyNameSheet = Sheets("ИменаЛистов").Cells(2, 1) ' получаем значение из указанного
'листа из ячейки "A2" (2 номер строки 1 номер столбца)
Set NewSheet = ActiveWorkbook.Worksheets.Add 'Добавляем лист в книгу
NewSheet.Name = MyNameSheet 'обзываем лист свим именем
End Sub

[badayal]

wsNewWorksheet.Name = Range("F2")

[clever77]

Сообщение от badayal

wsNewWorksheet.Name = Range("F2")

К сожалению так не получится, пробывал
Вот объяснения почему:

2. wsNewWorksheet.Name =[f2].value будет читать [f2].value из активного листа, то есть нового, где никаких данных еще нет. Поэтому заранее сохраняем [f2].value в переменную.
Можно без переменной, но тогда нужно явно указать название листа исходника:
wsNewWorksheet.Name =sheets(name_of_sheet).[f2].value

[SAS888]

...будет читать [f2].value из активного листа, то есть нового, где никаких данных еще нет.

А в примере из поста №6 имя новому листу будет присвоено из ячейки "F2" того листа, который был активным на момент запуска макроса. По-моему, это и требовалось. Если так, то проще не придумаешь.