Here's my Code...
---------------------------------------------------------
Sub recruitem3()
Dim arrExcelValues()
i = 1
x = 0

Do Until ThisWorkbook.Sheets("HiddenRec2").Cells(i, 2).Value = ""
ReDim Preserve arrExcelValues(x)
   arrExcelValues(x) = ThisWorkbook.Sheets("HiddenRec2").Cells(i,
2).Value
   i = i + 1
   x = x + 1
Loop
For Each StrItem In arrExcelValues
       UserForm2.WebBrowser2.Navigate2
("http://www.whatifsports.com/gd/rec_profile_top.asp?rid=" & StrItem &
"&irp=0&aw=1")
       Do
       DoEvents
       Loop Until UserForm2.WebBrowser2.Busy = False
Next
answer = MsgBox("Done! Would You Like to Recruit More?", vbYesNo,
"DONE!")
If answer = vbNo Then
   UserForm2.Hide
   Else
   End If

End Sub
-------------------------------------------------------

Basically have a list of numbers in the HiddenRec2 sheet in Columb B
starting at row 1. The end row can vary which is why I use the above
code.

The webbrowser needs to load the url completly before going to the next

url.

Here's the error message...
--------------------------------------------------------
Runtime Error -2147024726 (800700aa)
Method 'Navigate' of object 'IWebBrowser2' failed

Doing debug has this line highlighted in yellow...
UserForm2.WebBrowser2.Navigate2
("http://www.whatifsports.com/gd/rec_profile_top.asp?rid=" & StrItem &
"&irp=0&aw=1")

Any help would be appreciated!