Last Author Not Updating

[Masoud00]

Good Afternoon

For background I have entry-level VBA knowledge. I am trying to input the last updating author into a specific cell across unique identical worksheets throughout my day. I am attempting to imbed this function in a larger macro that I have saved to personal.xlsm. It is not functioning properly at this time and would appreciate any guidance on how to get this to work from the macro saved to personal.xlsm.

Function LastAuthor()
LastAuthor = ActiveWorkbook.BuiltinDocumentProperties("Last Author")
End Function

 

[offthelip]

try this:

Function LastAuthor()
LastAuthor = ActiveWorkbook.BuiltinDocumentProperties.Item(7)
End Function