Might be a quicker way, but try this in the workbook module.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
If Sh.Name = "Sheet1" And Target.Address = "$A$1" Then
Sheets("Sheet2").Range("B2").Value = Target.Value
Sheets("Sheet3").Range("C3").Value = Target.Value
ElseIf Sh.Name = "Sheet2" And Target.Address = "$B$2" Then
Sheets("Sheet1").Range("A1").Value = Target.Value
Sheets("Sheet3").Range("C3").Value = Target.Value
ElseIf Sh.Name = "Sheet3" And Target.Address = "$C$3" Then
Sheets("Sheet1").Range("A1").Value = Target.Value
Sheets("Sheet2").Range("B2").Value = Target.Value
End If
Application.EnableEvents = True
End Sub
No idea if this is any more efficient, but seems to work.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim v, i, s As String, j As Long
Application.EnableEvents = False
v = Array("Sheet1!$A$1", "Sheet2!$B$2", "Sheet3!$C$3")
s = Sh.Name & "!" & Target.Address
i = Application.Match(s, v, 0)
If IsNumeric(i) Then
For j = LBound(v) To UBound(v)
Evaluate(v(j)) = Target.Value
Next j
End If
Application.EnableEvents = True
End Sub
Bookmarks