Range.Hyperlinks (Excel)

Retorna uma coleção hyperlinks que representa os hiperlinks do intervalo.

Dim hypsHyperlinks As Hyperlinks
Set hypsHyperlinks = ActiveCell.Hyperlinks