01.Private Sub Worksheet_Change(ByVal Target As Range)
02. If Not Intersect(Target, Target.Worksheets(“Sheet1”).Range("$B$10”)) Is Nothing Then
03.
04. Target.Worksheets(“Sheet1”).Range("$B$10”) = Sheets(2).Range(“F15”)
05. End if
06. If Not Intersect(Target, Target.Worksheets(“Sheet2”).Range("$F$15”)) Is Nothing Then
07.
08. Target.Worksheets(“Sheet1”).Range("$F$15”) = Sheets(1).Range(“B10”)
09. End if
10.End Sub
