Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
If Not Target.Count > 1 Then
If Target.HasFormula Then
If InStr(1, Target.Formula, "!") <> 0 Then
Application.Goto _
Worksheets(Split(Split(Target.Formula, "=")(1), "!")(0)) _
.Range(Split(Target.Formula, "!")(1))
End If
End If
End If
Fin:
If Err.Number <> 0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub