
The solution to this problem is the following:
(1) Open
Microsoft Visual Basic by right clicking on any sheet tab, and selecting
“View Code”
(2) Double
click on “This Workbook” in the Project window.
(3) Copy and
paste the following code into the “This Workbook” window:
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, _
ByVal
Target As Hyperlink)
With
ActiveWindow
.ScrollRow = Range(Target.SubAddress).Row
.ScrollColumn = Range(Target.SubAddress).Column
End
With
End
Sub
|