Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim SearchString, Pos1, Pos2, SPos1, SPos2, fil, Sfil, SPath, GotFile
    Dim GotList, GotCell
    
    SearchString = Target.Cells( 1 ,  1 ).Formula
    Pos1 = InStr( 1 , SearchString, "'",  0 )
    Pos2 = InStr(Pos1 +  1 , SearchString, "'",  0 )
    
    If Pos1 =  0  Then
      Pos1 = InStr( 1 , SearchString, "[",  0 )
      Pos2 = InStr(Pos1 +  1 , SearchString, "!",  0 )
      fil = Mid(SearchString, Pos1, Pos2 - Pos1)
    Else
      fil = Mid(SearchString, Pos1 +  1 , Pos2 - Pos1 -  1 )
    End If
    
    
MsgBox fil
    
    SPos1 = InStr( 1 , fil, "[",  0 )
    SPos2 = InStr(SPos1 +  1 , fil, "]",  0 )
    Sfil = Mid(fil, SPos1 +  1 , SPos2 - SPos1 -  1 )
    SPath = Left(fil, SPos1 -  1 )
    
    GotFile = SPath & Sfil
    GotList = Mid(fil, SPos2 +  1 )
    
        
    GotCell = Mid(SearchString, InStr(SPos2, SearchString, "!") +  1 )
    


Dim Opened

For Each w In Workbooks
    If w.Name = GotFile Then
        w.Activate
        Opened = True
    End If
Next w

If Opened <> True Then
Workbooks.Open Filename:=GotFile
End If


On Error GoTo a
Workbooks(GotFile).Activate
a:
ActiveWorkbook.Sheets(GotList).Activate
ActiveWorkbook.Sheets(GotList).Range(GotCell).Select

Cancel = True
End Sub

Selection.ShowPrecedents
ActiveCell.NavigateArrow TowardPrecedent:=True, ArrowNumber:= 1 , LinkNumber := 1