Try ...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.BuiltinDocumentProperties(3) = Application.UserName
End Sub

"Larry S" wrote:

I would like the document to save the Application.UserName as the Author of
the document when the document is saved. So when you check the properties of
the document and go to the Summary tab, the author of the document will be
listed as the Application.UserName.

Thanks,
Larry