Excel VBA Макросы. Записать в свойство "Название" данные из заданной ячейки.

[Посетитель 02.09.2024]

Как с помощью макроса записать в активную книгу, в свойство "Название" данные из активного листа, из ячейки A1?

[Администратор]

Sub Macro()
    ActiveWorkbook.BuiltinDocumentProperties("Title") = Range("A1").Value
End Sub

[Посетитель 02.09.2024]

Спасибо.