Hyperlink.Range (Excel)

Returns a Range object that represents the range that the specified hyperlink is attached to.

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