VBA - Last Saved By

[rzt]

I have a workbook that will be shared by several users. I would like to stamp "Last Saved By" every time someone makes a change. I have tried to use:
Function LstSvBy() As Variant
Appliation.Volatile
LstSvBy = ActiveWorkbook.BuiltinDocumentProperties(7)
End Function

Cell: =LstSvBy

It works on 2003 workbooks but not 2010. I get the following error: "Number?

I have a separate VBA set up for Time/Date Stamp and that works fine.
Can't seem to figure this one out. Thanks for your help.

[nathansav]

Public Function LstSvBy() As String
Application.Volatile
LstSvBy = CStr(ActiveWorkbook.BuiltinDocumentProperties(7))
End Function

[rzt]

Same error #NAME?

There must be something with 2010 that does not let this work. I have tried for 2 days and can't get around this. Do you know of any other way around this?
Thanks again.

[nathansav]

It works fine on mine.

I think the name error is coming from the fact its not publicly declared, also have you got your macros enabled?

I have attached mine for you to try

[rzt]

Thank you. This worked when I used your.

I appreciate your help.