I woudl like to track changes as they happen to a sheet. Not the
changes themselves but who actually changed them and when. Something
like
Dim LstRw As Long
LstRw = Range("A65536").End(xlup).Row + 1
Range("A" & LstRw) = UserName and Now()

I am not sure how this is done.

thanks,
Jay

On Apr 29, 8:50*am, jlclyde wrote:
I woudl like to track changes as they happen to a sheet. *Not the
changes themselves but who actually changed them and when. *Something
like
Dim LstRw As Long
LstRw = Range("A65536").End(xlup).Row + 1
Range("A" & LstRw) = UserName and Now()

I am not sure how this is done.

thanks,
Jay

I found it. It is Application.UserName
Sorry,
Jay

FYI Application.UserName returns the name that the user supplied when XL was
installed. It can also be changed by the user at any time. Generally speaking
you are better of using the Windows login name.

cells(rows.count, "A").end(xlup).offset(1,0).value = Environ("Username")
--
HTH...

Jim Thomlinson


"jlclyde" wrote:

On Apr 29, 8:50 am, jlclyde wrote:
I woudl like to track changes as they happen to a sheet. Not the
changes themselves but who actually changed them and when. Something
like
Dim LstRw As Long
LstRw = Range("A65536").End(xlup).Row + 1
Range("A" & LstRw) = UserName and Now()

I am not sure how this is done.

thanks,
Jay

I found it. It is Application.UserName
Sorry,
Jay