Некорректная работа гиперссылок Microsoft Word 2010

Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
  (ByVal hwnd As Long, _
   ByVal lpOperation As String, _
   ByVal lpFile As String, _
   ByVal lpParameters As String, _
   ByVal lpDirectory As String, _
   ByVal nShowCmd As Long) As Long
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim sPath As String
    Const SW_SHOWMAXIMIZED = 3
    Const VK_CONTROL As Integer = &H11    'Ctrl
    If GetKeyState(VK_CONTROL) < 0 Then  'Нажат CTRL ?
        If Target.Cells.Count * Target.Hyperlinks.Count = 1 Then ' Выделена одна ячейка содержащая гиперлинк ? 
            Cancel = True 
            sPath = Target.Hyperlinks(1).Address  'Адрес файла
            ShellExecute 0, "open", sPath, vbNullString, vbNullString, SW_SHOWMAXIMIZED   'Вызываем стандартный обработчик Open
        End If
    End If
End Sub

Private WithEvents mobjWordApp As Word.Application

Private Sub Class_Initialize()
    Set mobjWordApp = Word.Application
End Sub

Private Sub mobjWordApp_WindowBeforeRightClick(ByVal Sel As Selection, Cancel As Boolean)
'...      
End Sub

Dim MyWord As clsWordEvent
Private Sub Document_Open()
   Set MyWord = New clsWordEvent
End Sub