Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column < 5 Then
On Error Resume Next
Application.EnableEvents = False
Range("D" & Target.Row) = Date
Application.EnableEvents = True
On Error GoTo 0
End If
End If
End Sub