You dont need to select the sheet or cell; instead try the below code..You
can have a separate sheet for logs which can be hidden...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)
Dim a_row As Long
a_row = Sheets("Control").Cells(Rows.Count, "V").End(xlUp).Row + 1
Sheets("Control").Range("V" & a_row) = "Last Saved By " & Environ("UserName")
Sheets("Control").Range("W" & a_row) = Now
End Sub

--
Jacob


"QuietMan" wrote:

Is there a way that I can keep a log of each person that saved a file and the
date and time

I use this code below but the area that the information is stored could be
changed if discovered...any help would be appreciated

Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)
Sheets("Control").Range("V19").End(xlDown).Select
a_row = ActiveCell.Row
Sheets("Control").Range("V" & a_row + 1).Value = "Last Saved By " &
Environ("UserName")
Sheets("Control").Range("W" & a_row + 1).Value = Date
Sheets("Control").Range("X" & a_row + 1).Value = Time
End Sub


--
Helping Is always a good thing