i'm trying to get this coding to go back the the For W statement after ClickLink then to Next i then keep repeating till there is no page with "Next ->" link on it.


Private Sub Command1_Click()

Dim W As Integer
For W = 0 To Web1.Document.links.length - 1
'Debug.Print Web1.Document.links(X)
lstautolink.AddItem Web1.Document.links(W)
Next W

Dim i As Integer
For i = lstautolink.ListCount - 1 To 0 Step -1
If InStr(1, lstautolink.List(i), "mp3s") = 0 Then
lstautolink.RemoveItem (i)
End If
Next i

ClickLink Web1.Document, "Next ->"

Do
DoEvents
Loop Until Not Web1.Busy

Msgbox "No more Next-> links"

End Sub