Осуществить переход по гиперссылке с помощью клавиши Enter — Visual Basic(Бейсик)

Private Sub Auto_Open()
    Application.OnKey "~", "FollowHyperlink"
    Application.OnKey "{ENTER}", "FollowHyperlink"
End Sub
 
Private Sub FollowHyperlink()
    If Not TypeOf Selection Is Range Then Exit Sub
 
    If ActiveCell.Hyperlinks.Count = 0 Then
       If Not Application.MoveAfterReturn Then Exit Sub
 
       Select Case Application.MoveAfterReturnDirection
           Case xlDown:    SendKeys "{DOWN}"
           Case xlToLeft:  SendKeys "{LEFT}"
           Case xlToRight: SendKeys "{RIGHT}"
           Case xlUp:      SendKeys "{UP}"
       End Select
    Else
       On Error Resume Next
       ActiveCell.Hyperlinks(1).Follow 'NewWindow:=True
    End If
End Sub