Is there a way to insert a "Last Modified By" function in a worksheet? For
example, if a document is accessed by many users and you want to know who
modfied it last time and have their name automatically inserted say at the
bottom of the sheet with perhaps the NOW function. Thanks for any help.

try this code.

you will find the username in column Z

Private Sub Worksheet_Change(ByVal Target As Range)
Set r = Range("a1:iv65536")
If Intersect(Target, r) Is Nothing Then Exit Sub
Application.EnableEvents = False
Cells(Target.Row, "Z").Value = Environ("username")
Application.EnableEvents = True
End Sub


"daltex" wrote in message
...
Is there a way to insert a "Last Modified By" function in a worksheet? For
example, if a document is accessed by many users and you want to know who
modfied it last time and have their name automatically inserted say at the
bottom of the sheet with perhaps the NOW function. Thanks for any help.

Thank you. I need something simpler, though.

"Gaurav" wrote:

try this code.

you will find the username in column Z

Private Sub Worksheet_Change(ByVal Target As Range)
Set r = Range("a1:iv65536")
If Intersect(Target, r) Is Nothing Then Exit Sub
Application.EnableEvents = False
Cells(Target.Row, "Z").Value = Environ("username")
Application.EnableEvents = True
End Sub


"daltex" wrote in message
...
Is there a way to insert a "Last Modified By" function in a worksheet? For
example, if a document is accessed by many users and you want to know who
modfied it last time and have their name automatically inserted say at the
bottom of the sheet with perhaps the NOW function. Thanks for any help.

Select Properties from the File menu and look on the Statistics tab.

Hope this helps,

Hutch

"daltex" wrote:

Thank you. I need something simpler, though.

"Gaurav" wrote:

try this code.

you will find the username in column Z

Private Sub Worksheet_Change(ByVal Target As Range)
Set r = Range("a1:iv65536")
If Intersect(Target, r) Is Nothing Then Exit Sub
Application.EnableEvents = False
Cells(Target.Row, "Z").Value = Environ("username")
Application.EnableEvents = True
End Sub


"daltex" wrote in message
...
Is there a way to insert a "Last Modified By" function in a worksheet? For
example, if a document is accessed by many users and you want to know who
modfied it last time and have their name automatically inserted say at the
bottom of the sheet with perhaps the NOW function. Thanks for any help.