SelectionChange Problem

Was mache ich falsche, es kommt dauern ein fehler in der dritten zeile bei Range("A1").Value

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

Ich möchte dass er mir bei Klick auf A1 diesen Wert in D1 schreibt. Wie kann ich das machen?? oder was mache ich falsch?