Private Sub Main()
    x = ActiveWorkbook.BuiltinDocumentProperties("Application Name")
    x = ActiveWorkbook.BuiltinDocumentProperties("Author")
    x = ActiveWorkbook.BuiltinDocumentProperties("Category")
    x = ActiveWorkbook.BuiltinDocumentProperties("Comments")
    x = ActiveWorkbook.BuiltinDocumentProperties("Company")
    x = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
    x = ActiveWorkbook.BuiltinDocumentProperties("Format")
    x = ActiveWorkbook.BuiltinDocumentProperties("Hyperlink Base")
    x = ActiveWorkbook.BuiltinDocumentProperties("Keywords")
    x = ActiveWorkbook.BuiltinDocumentProperties("Last Author")
    x = ActiveWorkbook.BuiltinDocumentProperties("Last Print Date")
    x = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
    x = ActiveWorkbook.BuiltinDocumentProperties("Manager")
    x = ActiveWorkbook.BuiltinDocumentProperties("Revision Number")
    x = ActiveWorkbook.BuiltinDocumentProperties("Security")
    x = ActiveWorkbook.BuiltinDocumentProperties("Subject")
    x = ActiveWorkbook.BuiltinDocumentProperties("Template")
    x = ActiveWorkbook.BuiltinDocumentProperties("Title")
End Sub