Имя нового листа или книги?

[Lirin]

Нужно создать новую книгу и ей или ее листу присвоить в качестве имени значение ячейки из старой книги. Возможно ли это впринципе?

[Sedge]

Нужно создать новую книгу и ей или ее листу присвоить в качестве имени значение ячейки из старой книги. Возможно ли это впринципе?

Да.

Код: Выделить всё

Sub NewBook()

    Dim wbNew As Workbook, wsNew As Worksheet
    Dim sNewName As String
   
    sNewName = Application.Workbooks("test.xls").Worksheets("Лист1").Range("a1").Value
    Set wbNew = Application.Workbooks.Add
    Set wsNew = wbNew.Worksheets.Add
    wsNew.Name = sNewName
    wbNew.SaveAs ("d:" & sNewName)

End Sub


[Lirin]

спс...
сама тоже нашла решение, но не знаю, насколько оно правильное...

nn = CStr(Cells(i, 1))
Workbooks.Add
ActiveSheet.Paste
ActiveSheet.Name = nn

[GSerg]

workbooks.add.worksheets(1).name=workbooks(1).worksheets(1).cells(1,1).value

[Lirin]

тоже вариант...