Private Sub Worksheet_Change(ByVal Target As Range)

' * ' Initialize
      Const Celle_Dato   As String = "A5"
      Const Celler_Input As String = "A1:A4"


' * ' Test, if we should insert date
      If Target.Cells.Count > 1 Then Exit Sub
      If Target.Address(False, False) = Celle_Dato Then Exit Sub
      If Intersect(Range(Celler_Input), Target) Is Nothing Then Exit Sub


ES: ' End of Sub
      Range(Celle_Dato).Value = Date

End Sub