Макрос для активации гиперссылок.

[Jum]

Для активации "гиперссылки" в таблице Excel нужно щелкнуть левой кнопкой по ней после чего запускается тот фаил который там указан.

Вопрос: Можно ли сделать макрос так чтобы активацию гиперссылки осуществляла кнопка CommandButton?

Для примера: Что у меня получилось но это не работает!

Private Sab CommandButton1_Click()
Range ("A1").Select
End Sub
эта формула выделяет ячейку но не запускает гиперссылку!

[The_Prist]

Если гиперссылка не создана формулой, то можно так

Range("A1").Hyperlinks(1).Follow

А если формулой, то так

Dim sStr As String, sHyp As String
sStr = Range("A20").Formula
sHyp = Mid(sStr, InStr(sStr, "(") + 2, InStr(sStr, ",") - InStr(sStr, "(") - 3)
ThisWorkbook.FollowHyperlink sHyp

[Jum]

Огромное спасибо за помощь!!!

только вот мне нужен 2й вариант а он не пошел. Я использую следующие формулы для гиперссылок
(=СЦЕПИТЬ(A14;A15))или(=ГИПЕРССЫЛКА (A18))он выдает ошибку в этой части (недействительный вызов процедуры или аргумент)
sHyp = Mid(sStr, InStr(sStr, "(") + 2, InStr(sStr, ",") - InStr(sStr, "(") - 3)

[Jum]

У меня получилось! вот оно
Sub button2_Click()
Dim sStr As String, sHyp As String
sStr = Range("C21").Formula
Dim startStr As Integer
Dim endStr As Integer
Dim lenghtStr As Integer
startStr = InStr(sStr, "(") + 1
endStr = InStr(startStr, sStr, ",")
lenghtStr = endStr - startStr
Dim lastCell As String
lastCell = Mid(sStr, startStr, lenghtStr)
sHyp = Range(lastCell).Value
ThisWorkbook.FollowHyperlink sHyp
End Sub