Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' Just Double-Click on Source cell
Dim a As Variant
a = Split(Replace(Target.Formula, "=", ""), "+")
Application.Goto Range(a(1))
MsgBox Range(a(1)).Value
Cancel = True
End Sub