Hyperlinks
 

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?
--

Hyperlinks
 

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" a écrit dans le message de groupe de discussion :
...
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?
--

Hyperlinks
 

Thank You very much
--
Have a great day!


"MichDenis" wrote:

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" a écrit dans le message de groupe de discussion :
...
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?
--