Loop VBA function and Web IE

[imgaur7]

Hi,

I need help here to understand as how the loop function for Excel VBA works with the IE web page

for eg: In Excel I have 25 different web site address listed, so the VBA should open web page address in cell B2, wait IE to load, again wait for 5 sec and then close the current IE page and the go to cell B3 of excel to open a new web page.

(Simple steps)
Select B2 cell value (www.xxx.com) and open it in IE web page
wait for 5 sec to load the page
close the current IE page after 10 sec
and go to cell B3
...
... loop till last value in Cell B (loop until last value)


Thanks to all in advance

 

[imgaur7]

Hi,

I need help here to understand as how the loop function for Excel VBA works with the IE web page

for eg: In Excel I have 25 different web site address listed, so the VBA should open web page address in cell B2, wait IE to load, again wait for 5 sec and then close the current IE page and the go to cell B3 of excel to open a new web page.

(Simple steps)
Select B2 cell value (www.xxx.com) and open it in IE web page
wait for 5 sec to load the page
close the current IE page after 10 sec
and go to cell B3
...
... loop till last value in Cell B (loop until last value)


Thanks to all in advance

----------------------------------------------------------
I tried something here and may be getting close to my code but problem here is that
it opens all the web pages one after another, instead of wait 5 sec and close current web page and then open next link in excel

Sub OpenLinks()
    Dim Cell As Range
    Set LinkRng = Range("A1").CurrentRegion.Columns(1)
    On Error Resume Next
    For Each Cell In LinkRng.Cells
        Cell.Hyperlinks(1).Follow
        Application.Wait (Now + TimeValue("00:00:05"))
            Next
    On Error GoTo 0
End Sub

Kindly suggest if possible here