Save username and date

J

jlclyde

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
 
J

jlclyde

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
Click to expand...

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

Jim Thomlinson

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")
 
Top