Opening Hyperlinks

[Nicki]

Can someone please tell me if there is a keyboard shortcut I can use
to open multiple hyperlinks in a spreadsheet (Column B, row 2-2535).

Alternatively, I know I can write a macro with a keyboard shortcut -
if anyone knows how to write it and could post, I'd really appreciate
it.

Thanks

 

[Guest]

Assign a shortcut key to the following:

Sub hyper_gone_wild()
Dim r As Range
Set r = Range("B2:B2535")
For Each rr In r
If rr.Hyperlinks.Count > 0 Then
For Each hl In rr.Hyperlinks
ActiveWorkbook.FollowHyperlink Address:=hl.Address
Next
End If
Next
End Sub