Sub ChangeDocumentProperties()
Dim MyAuthor as range
Dim MyDate as range
' Define (i.e. assign a name to a cell) these ranges in Excel
Set MyAuthor = Range("Author")
Set MyDate = Range("CreationDate")
With ThisWorkbook
.BuiltinDocumentProperties("Author") = MyAuthor.value
.BuiltinDocumentProperties("Creation date") = MyDate.value
End with
MsgBox "Author now recorded as: " & ThisWorkbook.BuiltinDocumentProperties("Author")
MsgBox "Creation date now recorded as: " & ThisWorkbook.BuiltinDocumentProperties("Creation date")
End sub