To get the last saved by name I think you would need,

[a1]= ThisWorkbook.BuiltinDocumentProperties("Last Author")

Cheers
Andy

Zone wrote:
I put this in a regular module. You could also use it in the workbook
module as an on open event.

Sub Auto_open()
[a1] = ThisWorkbook.BuiltinDocumentProperties("Author")
End Sub


--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info