you can add this to the thisworkbook module and see if it helps

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ws As Worksheet
Dim lastrow As Long
Set ws = Worksheets("Sheet1")
lastrow = ws.Cells(Rows.Count, "A").End(xlUp).Row
Range("A" & lastrow).Offset(1, 0) = Environ("Usernme") & " " & Format(Now,
"mm-dd-yyyy")

End Sub

--


Gary


"Kiba" wrote in message
...
I was wondering if anyone new a way to create a user prompt that would ask
for user initials when the user opened the workbook. Then save that
information along with the date if they make changes. If they don't make
changes then there's no reason to save that they logged in. I was thinking
this may be a good way to track changes when they forget to update the
revision date field. I haven't started coding this yet. So I appreciate any
and all ideas.