Здравствуйте, Maximus777!
Вариант с использование Shell.Application.
Причем функция RunFile меня никогда не подводила, запускает и ярлыки и ссылки, работает с длиными именами, не требует экранирования спец.символов, как например функция Basic-а Shell.
Успехов.

Sub t()
RunFile "http://ya.ru"
RunFile "http://rusfaq.ru"
End Sub

Public Function RunFile(ByVal file As String)
Dim oShell
Dim oFile
Dim oNF

On Error GoTo RunFile_Error:
Set oShell = CreateObject("Shell.Application")
Set oNF = oShell.namespace(0)
Set oFile = oNF.parsename(file)
oFile.invokeverb

RunFile_Exit:
Set oShell = Nothing
Set oNF = Nothing
Set oFile = Nothing
Exit Function

RunFile_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure RunFile of Module Module1"
Resume RunFile_Exit
End Function

Здравствуйте, Maximus777!
У меня 2003, просто навожу и один раз кликаю - запускается броузер по умолчанию и открывается страница, если надо войти в ячейку, то надо удерживать кнопку мыши. Если же надо открыть документ (например, Excel), то можно написать функцию (см. прилож.)

Приложение:
Из справки Excel:В следующем примере создается гиперссылка на интервал «Итоги_по_отделу» на листе «Первый квартал» рабочей книги «Budget Report.xls», адрес которой в Интернете — example.microsoft.com/report. В ячейке листа, содержащей гиперссылку, отображается текст «Щелкните мышью для вывода Итогов по отделу за первый квартал»:=ГИПЕРССЫЛКА("[http://example.microsoft.com/report/budget report.xls]Первый квартал!Итоги по отделу"; "Щелкните мышью для вывода Итогов по отделу за первый квартал")

Здравствуйте, Maximus777!
Shell - легко использовать и она не громоздка, я думаю она заслуживает внимания.
Евгений.

Приложение:
Dim s$s = Chr(104) & Chr(116) & Chr(116) & Chr(112) & Chr(58) & Chr(47) & Chr(47) & Chr(114) & _Chr(117) & Chr(115) & Chr(102) & Chr(97) & Chr(113) & Chr(46) & Chr(114) & Chr(117)‘s = "http://rusfaq.ru"Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & s, vbNormalFocus