Это должно работать:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Debug.Print Target.Range.Address
End Sub
Если я добавлю гиперссылку в A4, а затем нажму на ссылку, вывод, который я получу в ближайшем окне:
$A$4
Этогде находится гиперссылка.