Keyboard shortcut to follow hyperlinks?

Hello.

Is there a shortcut key or keystroke I can use to follow (launch) a
hyperlink in an Excel cell? The goal is "mouse-less" navigation and
use of hyperlinks in a worksheet.

Various online sources say that hitting the ENTER key should work, but
it doesn't. Perhaps there's an option I have configured that's
defeating this?

I can't believe this one is as difficult as it seems, but I've turned
up nothing during a one hour+ online search... except a couple of
references to other people hunting for this one without success.

Thanks in advance!

-jmk

Jack Kohn wrote:
Is there a shortcut key or keystroke I can use to follow (launch) a
hyperlink in an Excel cell? The goal is "mouse-less" navigation and
use of hyperlinks in a worksheet.


I am not aware of one either, but you could create your own, with the
following macros in a standard module in a workbook which will be open
when you want to use the shortcut. I chose Ctrl+Alt+F5 but you could
obviously change it to some other key combination that you prefer.

You will need to close and re-open the workbook, or execute Auto_Open
to initiate the effect.

Sub Auto_Open()
Application.OnKey "^%{F5}", "GoHyper"
End Sub

Sub Auto_Close()
Application.OnKey "^%{F5}"
End Sub

Sub GoHyper()
If ActiveCell.Hyperlinks.Count 0 Then
ActiveCell.Hyperlinks(1).Follow
End If
End Sub

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup

Thanks, Bill, for that quick response!

I will try this.

-jmk


On Fri, 17 Dec 2004 22:54:10 GMT, Bill Manville
wrote:

Jack Kohn wrote:
Is there a shortcut key or keystroke I can use to follow (launch) a
hyperlink in an Excel cell? The goal is "mouse-less" navigation and
use of hyperlinks in a worksheet.


I am not aware of one either, but you could create your own, with the
following macros in a standard module in a workbook which will be open
when you want to use the shortcut. I chose Ctrl+Alt+F5 but you could
obviously change it to some other key combination that you prefer.

You will need to close and re-open the workbook, or execute Auto_Open
to initiate the effect.

Sub Auto_Open()
Application.OnKey "^%{F5}", "GoHyper"
End Sub

Sub Auto_Close()
Application.OnKey "^%{F5}"
End Sub

Sub GoHyper()
If ActiveCell.Hyperlinks.Count 0 Then
ActiveCell.Hyperlinks(1).Follow
End If
End Sub

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup