Cell1 = Cell 2 and Cell 2 = Cell1

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.

Hi
please put code tags around code ( see forum rules) Thx

Hi, wright1125,

the text means to go to the advanced answer window, highlight the procedure and then hit the # to add [code]...[/code] tags or add them by hand.

Try to use the event in ThisWorkbook (deactivate the event behind the sheet, only use the event in ThisWorkbook):

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim strAddress As String
Dim ws As Worksheet

If Not Intersect(Target, Range("A1:A2")) Is Nothing Then
  If Target.Address = "$A$1" Then
    strAddress = "A1"
  Else
    strAddress = "A2"
  End If
  Application.EnableEvents = False
  For Each ws In Worksheets
    ws.Range(strAddress).Value = Target.Value
  Next ws
  Application.EnableEvents = True
End If
End Sub

Ciao,
Holger