This macro goes in the Sheet1 Level Module :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Not Application.Intersect(Range(Target.Address), Range("A2")) Is Nothing Then
Application.EnableEvents = False
Sheets(2).Range(Target.Address).Value = Target
Application.EnableEvents = True
End If
End Sub
This macro goes in the Sheet2 Level Module :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Not Application.Intersect(Range(Target.Address), Range("A1")) Is Nothing Then
Application.EnableEvents = False
Sheets(1).Range(Target.Address).Value = Target
Application.EnableEvents = True
End If
End Sub
Bookmarks