Hyperlink.Type (Excel)

Retorna um valor Long , contendo uma constante MsoHyperlinkType , que representa o local do quadro HTML.

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