Loop through a range and open in IE if cell has value

[papasmurfuo9]

Hi

i have a range A2:A1000

each cell could contain a hyperlink,

which is determined by this formula,

=IF('Detail'!E10="",TEXT("",""),Formulas!$B$1)

if there is a hyperlink showing in a cell, i would like it to open up in internet explorer, with a 5 second delay before looking into the next cell

many thanks in advance

[nathansav]

You'll need to read up on for next loops and application.ontime or application.wait for the 5 seconds, and look at embedding internet explorer in worksheet or in a userform.

[aavins73]

Hi try this pls..

Sub openlink()
For i = 1 To 2000
Range("A" & i).Select
If ActiveCell.Value = "" Then
Else
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.Wait (Now + TimeValue("00:00:05"))
End If
Next i
End Sub