Hyperlink.Name (Excel)

Returns a String value that represents the name of the object.

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