Try this. Might work

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Range("A1").Value = Range("A2").Value
ElseIf Target.Address = "$A$1" Then
Range("A2").Value = Range("A1").Value
End If
Sheet2.Range("A1").Value = Sheet1.Range("A1").Value
Sheet2.Range("A2").Value = Sheet1.Range("A2").Value
End Sub

Similarly for other sheets as well


"sp-googling" wrote:

I'm wanting to have cells take the value of the last one updated across
worksheets. I've found the code that accomplishs this within one
worksheet, but not across two. Could anyone make ammendments to the
following code for me?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Range("A1").Value = Range("A2").Value
ElseIf Target.Address = "$A$1" Then
Range("A2").Value = Range("A1").Value
End If
End Sub

Thanks greatly
Steve