Range.Hyperlinks (Excel)

Returns a Hyperlinks collection that represents the hyperlinks for the range.

Dim hypsHyperlinks As Hyperlinks
Set hypsHyperlinks = ActiveCell.Hyperlinks