Hyperlink.Type (Excel)

Returns a Long value, containing an MsoHyperlinkType constant, that represents the location of the HTML frame.

Dim msohType As MsoHyperlinkType
msohType = ActiveCell.Hyperlinks(1).Type