Private Sub WorkSheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub Application.EnableEvents = False Target.Offset(0, 1) = Date Application.EnableEvents = True End Sub