You should have stayed in the original thread.
Right click the sheet tabview codecopy/paste

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Haroon" wrote in message
...
how do i put this code in excel to work?

anyone help pls
cheers

"Gary''s Student" wrote:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
rw = Target.Row
Cells(rw, "X").Value = Now
Cells(rw, "Y").Value = Environ("UserName")
Application.EnableEvents = True
End Sub
--
Gary''s Student - gsnu200721