VBA Excel - Null The Value of a cell when the value of another cell changes

[Pinkoto]

Hello,

I have never used VBA. I saved my excel file in xlsm and put this code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("d1").Address Then
Range("d5").Value = ""
End If
End Sub

But its not working. The idea is when i change my first dropdown menu the second one to be null.

 

[shg]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$D$1" Then
    On Error GoTo Oops
    Application.EnableEvents = False
    Range("D5").ClearContents
Oops:
    Application.EnableEvents = True
  End If
End Sub

The code MUST go in the sheet module for the worksheet of interest.