How do I insert a user's name automatically into a specific cell when they
open a worksheet, make some changes and then save it. I need to record the
last person to make changes to the spreadsheet. There name needs to be
automatically inserted into a specific cell of my choosing so that when
someone else looks at the spreadsheet either in read-only mode or without
making any changes to it they can see who last edited it.

TP GS 180506 wrote:
How do I insert a user's name automatically into a specific cell when
they open a worksheet, make some changes and then save it. I need to
record the last person to make changes to the spreadsheet. There name
needs to be automatically inserted into a specific cell of my
choosing so that when someone else looks at the spreadsheet either in
read-only mode or without making any changes to it they can see who
last edited it.

Have you thought of using Tools-Track changes to get all their (note not
there!!!) changes listed?

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

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