Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20230101
Dim WorkRng As Range
Dim Rng As Range
Dim dtToday As Date
dtToday = Date
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)
xOffsetColumn = -1
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In WorkRng
If Not VBA.IsEmpty(Rng.Value) Then
Rng.Offset(0, xOffsetColumn).Value = dtToday
Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy"
Else
Rng.Offset(0, xOffsetColumn).ClearContents
End If
Next
Application.EnableEvents = True
End If
If Target.Column = 5 Then
If Target.Value <> "" Then
Target.Offset(0, 1).Value = "MoonLove"
Else
Target.Offset(0, 1).ClearContents
End If
End If
End Sub