Hyperlink.Name (Word)

Returns the name of the specified object.

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