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.