Forward resultat ?

An lidt spøjs mulighed fald mig ind:

Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox "Change: " & Target.Address
    If Target.Address <> "$A$2" Then
        ActiveSheet.Range("A2").Value = ActiveSheet.Range("A1").Value
    End If
End Sub

De forbundne celler er så 'hard-coded' i makroen. :o)

NB: indstilling af en celles værdi via makro trigger 'change'-hændelsen, så derfor skal der være en if-sætning for at undgå endeløs sløjfe.