Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D3")) Is Nothing Then
        Application.EnableEvents = False
        Range("D4") = ""
    End If
    Application.EnableEvents = True
End Sub