Hello,

I would like to the User of the Last Save displayed in Cell A10014. At this
time I have the Author, which is incorrect.

The below code is in "This Workbook" code module

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)

[Billing!A1012] =
ActiveWorkbook.BuiltinDocumentProperties("Subject" ).Value
[Billing!A1013] = Now()
[Billing!A1014] = ActiveWorkbook.Author
End Sub


Thanks
Ruan

Ruan,

Try

ActiveWorkbook.BuiltinDocumentProperties("Last Author")

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Ruan" wrote in message
...
Hello,

I would like to the User of the Last Save displayed in Cell A10014. At
this
time I have the Author, which is incorrect.

The below code is in "This Workbook" code module

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)

[Billing!A1012] =
ActiveWorkbook.BuiltinDocumentProperties("Subject" ).Value
[Billing!A1013] = Now()
[Billing!A1014] = ActiveWorkbook.Author
End Sub


Thanks
Ruan

Thanks Bob.

I also stumbled across

ActiveWorkbook.UserStatus

which seems to work.

Ruan



"Bob Phillips" wrote in message
...
Ruan,

Try

ActiveWorkbook.BuiltinDocumentProperties("Last Author")

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Ruan" wrote in message
...
Hello,

I would like to the User of the Last Save displayed in Cell A10014. At
this
time I have the Author, which is incorrect.

The below code is in "This Workbook" code module

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)

[Billing!A1012] =
ActiveWorkbook.BuiltinDocumentProperties("Subject" ).Value
[Billing!A1013] = Now()
[Billing!A1014] = ActiveWorkbook.Author
End Sub


Thanks
Ruan