Hyperlink.Range (Excel)

Retorna um objeto Range que representa o intervalo ao qual o hiperlink especificado está anexado.

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