Loop CommandButton click

[spiklz]

Hi,

Please I need help with this macro please.

I would like the events to keep looping until there's no more value in a cell. The events are basically clicking on the links in cell L33 and once clicked, it moves on to visit the next link and so on. But before the automation visits the next link, I would like the webpage to be fully loaded before the automation visits the next link. For now, I have created a button that would visit the link in L33 but I don't want to keep clicking as I have hundreds of links to load so what I would like is that after the first click, the macro should keep running the events until there's no more link in L33 and the macro stops with a message box or something like that.

Once clicked, the events of this button are:
1. Load the web link in L33.
2. Allow the webpage to be fully loaded.
3. The web link moves up then the next one gets on cell L33.
4. Repeat whole process until there's no more link, popup message box "DONE"

Here's my code:

Sub CommandButton1_Click()

WebBrowser1.Navigate (Sheets("Sheet1").Range("L33").Value)
WebBrowser1.Silent = True

If WebBrowser1.ReadyState <> READYSTATE_LOADED Then

Range("A32:L32").Select
Selection.Delete

End If

End Sub




I also attached my excel file.

Many thanks,

[spiklz]

Hi,