Как связать две ячейки в Excel 2016 - VBA

Формулировка задачи:

Добрый день, друзья! Подскажите как связать две ячейки в excel 2016? Есть ячейка А1 на Листе1 и ячека В1 на Листе2. При редактировании первой ячейки(А1 на листе1) необходимо что бы и во второй(В1 на листе2) поменялось значение и наоборот, при редактировании второй ячейки(В1 на листе2) менялось значение в первой(А1 на листе1).

Решение задачи: «Как связать две ячейки в Excel 2016»

textual
                            Листинг программы 
                        

                            Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngObj As Range
    Dim i As Long
    If Not Intersect(Target, Me.Columns(1)) Is Nothing Then
        For Each rngObj In Intersect(Target, Me.Columns(1)).Cells
            i = rngObj.Row
            If Not ThisWorkbook.Worksheets.Item("Лист2").Cells(i, 1).Value = rngObj.Value Then ThisWorkbook.Worksheets.Item("Лист2").Cells(i, 1).Value = rngObj.Value
            
        Next
    End If
End Sub
                        