Hyperlink.Name (Excel)

Retorna um valor String que representa o nome do objeto.

Dim strName As String
strName = ActiveCell.Hyperlinks(1).Name