Excel 2010 อยากทราบว่ามีวิธีเชื่อมต่อเซลล์คนละชีทไหมครับ

Private Sub Worksheet_Change(ByVal Target As Range) 
  If Not Intersect(Target, Target.Worksheets(“Sheet1”).Range("$B$10”)) Is Nothing Then
   	'Run Macro
	Target.Worksheets(“Sheet1”).Range("$B$10”) = Sheets(2).Range(“F15”)
 End if
  If Not Intersect(Target, Target.Worksheets(“Sheet2”).Range("$F$15”)) Is Nothing Then
   	'Run Macro
	Target.Worksheets(“Sheet1”).Range("$F$15”) = Sheets(1).Range(“B10”)
 End if
End Sub