Macro that automatically inputs "RECHECK STATUS" in cell when date changes in another cell

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each cell In Intersect(Target, Range("D:D"))
    cell.Offset(0, 1).Value = "RECHECK STATUS"
Next 'cell
Application.EnableEvents = True
End Sub

Regards,TMS