Range.Hyperlinks (Excel)

Devuelve una colección Hyperlinks que representa los hipervínculos del rango.

Dim hypsHyperlinks As Hyperlinks
Set hypsHyperlinks = ActiveCell.Hyperlinks