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.

--
Johanna

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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Johanna Gronlund" wrote in
message ...
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.

--
Johanna

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?

--
Johanna


"Don Guillett" wrote:

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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Johanna Gronlund" wrote in
message ...
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.

--
Johanna

.

use sub as written and assign to a button

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Johanna Gronlund" wrote in
message ...
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?

--
Johanna


"Don Guillett" wrote:

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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Johanna Gronlund" wrote in
message ...
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.

--
Johanna

.