Worksheet_Change läuft im Kreis!

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1) = Cells(21, 7) Then
Debug.Print Target.Cells(1).Address
Cells(1, 1) = Cells(21, 7)
End If
End Sub

Wenn ich Zelle (21,7) ändere, wird der If-Block ausgeführt und ändert seinerseits Zelle (1,1). Daraufhin wird das Makro erneut ausgeführt, der If-Block ebenfalls, obwohl Target doch NICHT mehr (21,7) ist! Debug.Print sagt mir auch $A$1.
Wiesooooooooo?
Gruß, Wolli