Question

I think this should be a simple straight-forward issue, however i am very new to VB coding.

I would like to have the contents of A1 copied to B1, with B1 completely editable, however if any changes are made to A1, the contents are again copied over to B1.
The following code copies the contents, however on any change, but I only want it activated if changes are made to A1.

Private Sub Worksheet_Change(ByVal Target As Range)
   Range("A3").Formula = Range("A1").Formula
End Sub

Thank you for your help,
Randy

Answer 1

You can use this code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Range("B1") = Range("A1")
    End If
End Sub