John

Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)
With ThisWorkbook
With Worksheets("Sheet1")
.Range("A1").Value = "Last Saved By " _
& Environ("UserName") & " " & Now
End With
End With
End Sub


Gord Dibben MS Excel MVP

On Thu, 10 May 2007 16:26:01 -0700, John Calder
wrote:

Hi

The PC I use is part of an network that requires individuals to log on with
their own personal log-on. ie: QWCAL when starting the computer.

What is would like is some VB that would return the log-in of the last
person to save the file.

Any help is much appreciated

John