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?
--
Helping Is always a good thing

Hi,

Alt+F11 to open VB editor. Double click 'this workbook' and paste this in on
the right

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").Range("a1").Value = Environ("Username")
End Sub

Mike

"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?
> --
> Helping Is always a good thing

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
<(E-Mail Removed)> 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?