Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo suite
Cancel = True
If ActiveCell = "" Then GoTo Suite2
ThisWorkbook.FollowHyperlink ActiveCell: Exit Sub
suite: ThisWorkbook.FollowHyperlink ActiveCell.Offset(0, -1) & "\" & ActiveCell: Exit Sub
Suite2: ThisWorkbook.FollowHyperlink CurDir
End Sub