Cell is equal to another cell until you write something in it

[hrzagi]

Put this in the code module for Sheet1

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target.Cells(1, 1)
        If .Address <> "$A$1" Then Exit Sub
        
        Application.EnableEvents = False
        If Len(.Value) > 0 Then Worksheets("Sheet2").Range("B1").Value = .Value
        Application.EnableEvents = True


End Sub

and this in for Sheet2

Option Explicit


Private Sub Worksheet_Activate()
    With Me.Range("B1")
        Application.EnableEvents = False
        If Len(.Value) = 0 Then .Value = Worksheets("Sheet1").Range("A1").Value
        Application.EnableEvents = True
    End With


End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
    With Target.Cells(1, 1)
        If .Address <> "$B$1" Then Exit Sub
        
        Application.EnableEvents = False
        If Len(.Value) = 0 Then .Value = Worksheets("Sheet1").Range("A1").Value
        Application.EnableEvents = True
    End With
End Sub

Could you please explain me how to modify the code for multiple cells on Sheet1 with corresponding cells on Sheet2. Something like A1=B1, A3=B3, A5=B5 etc. Or I need to write whole code for every cell seperately?