Здравствуйте, Smooky, Вы писали:

S>Здравствуйте, JohnDoe, Вы писали:

JD>>Помогите плз поменять имя у не сохраненного workbooka.
JD>>"Книга1" -> "My Name"

S>Workbook(1).FullName = "New name"

пишу

Sub ff()

 Call ChangeName(ActiveWorkbook, "TestName")

End Sub

Sub ChangeName(workbook As workbook, name As String)
  workbook.FullName = name
End Sub

грит
Compile error:
Can't assign to read-only property

на назначении имени

имя надо менять не сохраняя workbook