Range Property (Hyperlink Object) Example

This example scrolls through the workbook window until the hyperlink range is in the upper-left corner of the active window.

Workbooks(1).Activate
Set hr = ActiveSheet.Hyperlinks(1).Range
ActiveWindow.ScrollRow = hr.Row
ActiveWindow.ScrollColumn = hr.Column