Hyperlink to move the cursor to the top of the frozen panes

[Johanna Gronlund]

Hello,

I have a worksheet that has hyperlinks to other parts of the same sheet. I
have 6 frozen panes on top on the sheet. I would like to have the cursor
appear on the top of the screen (just below the frozen panes) rather than
bottom of the screen. I have checked previous posts and tried this code on
the worksheet:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Application.Goto ActiveCell, Scroll:=True
End Sub

For some reason, nothing happens. It's the same if there was no code. Could
I be doing something wrong? Is there something I would need to make specific
for my worksheet, eg. name of the Worksheet? My workshhet is called Inputs.

Many thanks in advance for your help.

 

[Don Guillett]

Sub CtrlHome()
ActiveWindow.VisibleRange.Resize(1, 1).Select
End Sub

 

[Johanna Gronlund]

again, nothing happens, I am not sure why. I double click on the sheet tab,
paste it into the sheet VB code window and nothing happens. No error messages
but the screen doesn't move either. The other macros in the workbook are
working ok. Any ideas what I might be doing wrong?

 

[Don Guillett]

use sub as written and assign to a button