Hyperlink.Range (Excel)

Devuelve un objeto Range que representa el rango al que está adjunto el hipervínculo especificado.

Dim rngRange As Range
Set rngRange = ActiveCell.Hyperlinks(1).Range