Заполнение свойств книги Excel макросом

[Genn0k]

Господа! Возникла необходимость вставки, перед сохранением, данных из ячейки с листа в графу Автор свойства документа. Нашел макрос, вставляю ссылку на ячейку, а данные не вставляются. Подскажите что не правильно делаю?
Private Sub Set_DocProperties()
With ThisWorkbook
If .ProtectStructure = True Or _
.MultiUserEditing = True Then
MsgBox "Свойства книги изменить нельзя", , ""
Exit Sub
End If

.Author = Range(A7).Value
.Comments = "Текст"
.Keywords = "Текст"
.Subject = "Текст"
.Title = "Текст"
End With
End Sub

[Genn0k]

сам себе. ступил вероятно. вот так сработало:
Text = Range("A7").Value
.Author = Text

Спасибо всем.