Changing Cell Value on Different Tabs

[OldSwimmer1650]

I want to change multiple cell values on different tabs.

Let:
Cell A1 on Tab1
Cell B1 on Tab2
Cell C1 on Tab3

When I enter a value into any of the cells (A1, B1, C1) the other cells change to the same value.
So, If I enter 5 into cell C1 on Tab3, Cells A1 & B1 change to 5.
If I enter 10 into cell A1 on Tab1, Cell B1 & C1 change to 10.

Seems easy but I've no idea.

 

[dreid1011]

Sounds like some VBA should handle it. Though you will need a Worksheet_Change event on each sheet to do the job. Is VBA an option?

 

[OldSwimmer1650]

Sounds like some VBA should handle it. Though you will need a Worksheet_Change event on each sheet to do the job. Is VBA an option?

VBA is definitely an option

 

[dreid1011]

Then give these a try:
Tab 1 code

Sub Worksheet_Change(ByVal Target As Range)
'Sheet1
Dim wsB, wsC As Worksheet
Set wsB = Sheets("Sheet2")
Set wsC = Sheets("Sheet3")
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then
    wsB.Range("B1") = Range("A1")
    wsC.Range("C1") = Range("A1")
End If
Application.EnableEvents = True
End Sub

Tab 2 code

Sub Worksheet_Change(ByVal Target As Range)
'Sheet2
Dim wsA, wsC As Worksheet
Set wsA = Sheets("Sheet1")
Set wsC = Sheets("Sheet3")
Application.EnableEvents = False
If Not Intersect(Target, Range("B1")) Is Nothing Then
    wsA.Range("A1") = Range("B1")
    wsC.Range("C1") = Range("B1")
End If
Application.EnableEvents = True
End Sub

Tab 3 code

Sub Worksheet_Change(ByVal Target As Range)
'Sheet3
Dim wsA, wsB As Worksheet
Set wsA = Sheets("Sheet1")
Set wsB = Sheets("Sheet2")
Application.EnableEvents = False
If Not Intersect(Target, Range("C1")) Is Nothing Then
    wsA.Range("A1") = Range("C1")
    wsB.Range("B1") = Range("C1")
End If
Application.EnableEvents = True
End Sub

 

[OldSwimmer1650]

Then give these a try:
Tab 1 code

Sub Worksheet_Change(ByVal Target As Range)
'Sheet1
Dim wsB, wsC As Worksheet
Set wsB = Sheets("Sheet2")
Set wsC = Sheets("Sheet3")
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then
    wsB.Range("B1") = Range("A1")
    wsC.Range("C1") = Range("A1")
End If
Application.EnableEvents = True
End Sub

Tab 2 code

Sub Worksheet_Change(ByVal Target As Range)
'Sheet2
Dim wsA, wsC As Worksheet
Set wsA = Sheets("Sheet1")
Set wsC = Sheets("Sheet3")
Application.EnableEvents = False
If Not Intersect(Target, Range("B1")) Is Nothing Then
    wsA.Range("A1") = Range("B1")
    wsC.Range("C1") = Range("B1")
End If
Application.EnableEvents = True
End Sub

Tab 3 code

Sub Worksheet_Change(ByVal Target As Range)
'Sheet3
Dim wsA, wsB As Worksheet
Set wsA = Sheets("Sheet1")
Set wsB = Sheets("Sheet2")
Application.EnableEvents = False
If Not Intersect(Target, Range("C1")) Is Nothing Then
    wsA.Range("A1") = Range("C1")
    wsB.Range("B1") = Range("C1")
End If
Application.EnableEvents = True
End Sub

TYVM!
I'll give this a try later today when I get some free time. Some of this VBA code is new to me so I may have a couple of questions.