Open, Search, And Click Through Webpages.

i found some code on chippearson's site to use excel to open a webpage, search for keywords, and click on the links... i'm see a couple different errors waiting for the webpages to load. the errors and code is listed below...

Errors
1. method 'busy' of object 'IWebBrowser2' failed
2. remote server machine is unavailable



Sub OpenLinks()
Dim o2

Set o2 = CreateObject("internetexplorer.application")
o2.Navigate "http://forums.slickdeals.net/forumdisplay.php?sduid=0&f=9" 'IE navigates to a webpage
o2.Visible = False 'hides IE
While o2.busy: DoEvents: Wend

Set o = o2.Document.All.tags("A")


M = o.Length: mySubmit = -1
For r = 0 To M - 1

If InStr(1, o.Item(r).innerhtml, "SD600", vbTextCompare) Then
o.Item(r).Focus
o.Item(r).Click: Exit For
End If
Next

End Sub