Shared cell between pages

Copper Contributor
Hey guys, i'm trying to make a cell that show the same value on two different pages of the worksheet, but when I change the value on page 2 for example it also changes on page 1, and when I change on page 1 it changes on page 2. And if possible also do this for more than 2 pages. It would be like a shared cell between all the pages of the worksheet. I know I can put for example "= Page1!A1" but this is not what I need. Someone help me with that please?! Tnx
1 Reply

@NinoPardini 

Hi Nino,

you can do it with a worksheet event. See attached file too. in this example the cells A4 and K4 react like a mirror.

 

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

Select Case Target.Address(False, False)

Case "A4"
Range("K4").Value = Target.Value


Case "K4"
Range("A4").Value = Target.Value


End Select

Application.EnableEvents = True

End Sub

 

Best regards

Bernd

The VBA-Tanker - a database full of usefull macros