mirroring multiple cells across multiple worksheets

You could use a series of worksheet_change events, one applied to each worksheet.

The following procedures would keep Sheet1 B1= Sheet2 B4 = Sheet3 C5, and Sheet1 B4 = Sheet2 B3 = Sheet3 C6.

Sheet1:

Please Login or Register  to view this content.

Sheet2:

Please Login or Register  to view this content.

Sheet3:

Please Login or Register  to view this content.

Thank you so much, daffodil11! I will give it a try.

Update:

I gave it a try and it didn't work for me. I might not have explained myself well enough. In the above cell linkages, I want to be able to enter data into any of the cells and have the linked cells update (in both directions, i.e. mirror the other). I did find the following code online that works, but for only a one cell pair correlation. What I need is for at least two pairs of cells.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r1 As Range, r2 As Range
Set r1 = Range("C3")
Set r2 = Sheets("Live Forecast Tool").Range("C3")
If Intersect(Target, r1) Is Nothing Then Exit Sub
Application.EnableEvents = False
r2.Value = r1.Value
Application.EnableEvents = True
End Sub


Update:

I'm an absolute newbie to VBA and worked every way of integrating a double instance of above and finally got it to work. BIG smile on my face right now :-).

rivate Sub Worksheet_Change(ByVal Target As Range)
Dim r1 As Range, r2 As Range, r3 As Range, r4 As Range
Set r1 = Range("B4")
Set r2 = Sheets("B2B Revenue").Range("B4")
Set r3 = Range("G4")
Set r4 = Sheets("B2B Revenue").Range("D4")
If Intersect(Target, Range(r1, r3)) Is Nothing Then Exit Sub
Application.EnableEvents = False
r2.Value = r1.Value
r4.Value = r3.Value
Application.EnableEvents = True
End Sub

Just make sure you duplicate the code, but in reverse on each sheet's module for the two-way effect to work.

I've attached a sample with my code working as intended across three worksheets, in any direction.