Hyperlink.Name (Excel)

Devuelve un valor de tipo String que representa el nombre del objeto.

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