In Sheet1 (or whatever sheet):Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 1 ThenTarget.Worksheet.Cells(Target.Row, 2) = Date ' or Time or Now (forboth)End IfEnd Sub