Your description does not match your subject line but maybe........

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


Gord Dibben MS Excel MVP

On Thu, 9 Oct 2008 12:45:02 -0700, QuietMan
wrote:

I trying to have a macro auto exceute to put the user name in a cell on a
worksheet each time the workbook is saved

Does anyone know how to do this?