Hyperlink going to two rows above Hyperlink cell reference.

[S.H.A.D.O.]

Good morning,

I have a sheet called "Summary" and a sheet called "Calculation".

I have set up Hyperlinks in the sheet called "Summary" which relate to different cells in the sheet called "Calculation". This works very well.

What I would like to be able to do is when ANY of the Hyperlinks are pressed that the sheet "Calculation" goes two rows above the reference set in the Hyperlink and the two rows above the reference moves the sheet upto the top of the page. Something like...

ActiveWindow.ScrollRow = 1

...if VBA was used.

Thanks in advance.

 

[S.H.A.D.O.]

Would a Worksheet Change Event to move the sheet up be the way to go, and if so, how would I do this please?

 

[S.H.A.D.O.]

I think I have worked it out.

Private Sub Worksheet_Activate()
    ActiveWindow.ScrollRow = ActiveCell.Row - 1
End Sub

Do I need to disable and enable Events at all within the code?

If there are any other suggestions I would be grateful.