Cell1 = Cell 2 and Cell 2 = Cell1

[wright1125]

I have used this code with success in the past:-
[#]Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A2")) Is Nothing Then
If Target.Address = "$A$1" Then
Range("A2").Value = Target.Value
Else
Range("A1").Value = Target.Value
End If
End If
End Sub[#]
I now have a spreadsheet with 10 worksheets. I want to be able to have say, square 'B2' the same an all sheets and be able to alter the value of 'B2' on any of the sheets? Any ideas. please.