The following should work. In this case it logs the information to cell A1 of
sheet 1 in the active workbook.
ActiveWorkbook.Sheets(1).Range("A1") =
ActiveWorkbook.BuiltinDocumentProperties(12).Value
Note that the document should have been already saved once or an error will
arise since the value will be empty.
HTH
Matt