Hyperlinks

[Doug]

How can I select all the hyperlinks within a particular range by clicking on
a single cell? I am hoping to do this for the purpose of opening up several
web page tabs at once?
--

 

[MichDenis]

Hi Doug,

Here an example :

Place this code in the module of your sheet
'---------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Lk As Hyperlink

'If you select A1
If Not Intersect(Target, Range("A1")) Is Nothing Then
'for all hyperlink in this range
For Each Lk In Range("C:C").Hyperlinks
'open hperlink in same window
Lk.Follow False
Next
End If
End Sub
'---------------------------------------



"Doug" <[email protected]> a écrit dans le message de groupe de discussion :
(e-mail address removed)...
How can I select all the hyperlinks within a particular range by clicking on
a single cell? I am hoping to do this for the purpose of opening up several
web page tabs at once?
--

 

[Doug]

Thank You very much