Для того, чтобы отловить клик мышкой (или нажатие клавиши enter в Excel 2000) по гиперссылке, а также определить адрес ячейки с этой гиперссылкой, можно использовать нижеприведённое событие, которое необходимо разместить в модуле нужного рабочего листа
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim iCell As Range
Set iCell = Target.Range 'Target.Parent
MsgBox iCell.Address
End Sub
Данное событие не позволяет отловить переход по гиперссылкам, которые связаны с автофигурой/рисунком, или созданы с помощью стандартной функции рабочего листа =ГИПЕРССЫЛКА(), впрочем, есть обходные решения.