VBA - Last saved user

[Rehmatm]

Hi, Hope someone can help me.. I have a shared document which is being used by multiple people. I want to be able to capture who and when someone saves changes. This is the code I have at the moment.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("UserLog").Activate
Range("A1") = "This file last saved ""By"" who ""On"", list!"
Range("A65536").End(xlUp).Offset(1, 0) = _
"By: " & Application.UserName & ", On: " & Now & " "
End Sub

What I want the code to do is, save the last users information in the 'UserLog' sheet and return the user back to the sheet they were working on (they do not need to see the UserLog sheet)

Can someone help. All help is appreciated.

Many Thanks

R

 

[VoG]

Try

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Worksheets("UserLog")
    .Range("A1") = "This file last saved ""By"" who ""On"", list!"
    .Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = _
    "By: " & Application.UserName & ", On: " & Now & " "
End With
End Sub

 

[Rehmatm]

Thank you very much! It works perfectly!