Название книги по ячейке

[meg8639]

Здравствуйте, если данный макрос, называет ячейку и рабочий лист по имени книги, то как сделать наоборот и назвать книгу по значению заданной ячейки. Наверно необходимо в
book = Application.ActiveWorkbook.Name

Вставить
Range("A1") = Application.ActiveWorkbook.Name

ПРАВИЛЬНО ЛИ Я РАССУЖДАЮ?

МАКРОС для примера, присваивающий имя книги в ячейке
Sub Test()
Dim book As String
Dim sheet As String
Dim addr As String
addr = "C"
book = Application.ActiveWorkbook.Name
sheet = Application.ActiveSheet.Name
Workbooks(book).Activate
Worksheets(sheet).Activate
Range("A1") = book
Range("B1") = sheet
Dim xList As Integer
xList = Application.Sheets.Count
For x = 1 To xList
Dim s As String
s = addr + LTrim(Str(x))
Range(s) = x
Next x
End Sub

[IgorGO]

Потайные задумки изображенные в Вашем коде крейне сложны для понимая простыми сметрными, а "просвященные" еще не проснулись после ночных стараний.

У Вас два варианта:
ждете подхода основных сил
или
не мудрствуя лукаво, а просто - "на пальцах", обьясните что где лежит и что нужно получить в итоге

ЗЫ: что-то похожее я уже читал тут на днях, или мерещится?

[Казанский]

> назвать книгу по значению заданной ячейки
Чтобы изменить имя книги, ее надо сохранить. Например, сохранить активную книгу в той же папке с именем (без расширения) из А1:

activeworkbook.SaveAs activeworkbook.Path & "\" & range("A1") & ".xls"

[meg8639]

Спасибо за участие, Казанский спасибо за информацию

Действительно в прошлых темах был подобный вопрос вот ответ на подобный случай:

Sub test()
ActiveWorkbook.SaveAs "C:\Моя папка\" & [Форма!A9] & [Форма!A8] & ".xls"
End Sub

Досвиданья