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

[Paul_Hossler]

In Sheet2's code module

Option Explicit


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


End Sub


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