If hyperlinks were inserted using the HYPERLINK() function, then this may help:

Sub hypperrr()
'
' gsnuxx
'
Set ru = ActiveSheet.UsedRange
Set rf = ru.SpecialCells(xlCellTypeFormulas)

For Each r In rf
s = r.Formula
lk = r.Value
If InStr(s, "=HYPERLINK(") Then
ActiveWorkbook.FollowHyperlink Address:=lk
End If
Next
End Sub

--
Gary''s Student - gsnu200798


"Santi" wrote:

In an excel worksheet how can I open several hyperlinks at once without
having to click on each one? Taking into account that the hyperlinks are a
result of a €œVlookup€� formula. Can anyone help? I tried the macro listed
below which works but only when the hyperlink is not part of a formula.


Sub hypper()
Dim h As Hyperlink
For Each h In ActiveSheet.Hyperlinks
h.Follow
Next
End Sub