static date in new file when data entered in another

[HELP ME PLEASE]

Need help on this one. I want to enter the number "one" in any cell in a
column that will trigger entering todays date statically in the cell to the
right of that cell.

 

[Mike H]

Right click the sheet tab, view code and paste this in. Change the column to
suit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Application.EnableEvents = False
If Target.Value = 1 Then
Target.Offset(0, 1).Value = Date
End If
Application.EnableEvents = True
End If
End Sub

Mike

 

[HELP ME PLEASE]

:

Thank you very much your a genius! How do I make it work on more than one
column? exp. "U:U", "W:W", "Y:Y"