zellen löschen wenn zelländerung

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Cells(3, 4) Then
Range("C6:D31").ClearContents
End If
End Sub

einen Fehler? Wie sähe die Lösung aus?

Ich möchte den Zellbereich C6:D31 für den Fall löschen, dass sich der Wert in Zelle D3 ändert.

Vielen Dank im vorraus und schönes WE,

Olnima