Do you need to build the array first ?
Why not build it as you .Navigate2, or don't bother if you are not going to
use it later ?

And try it without the ( ).

With ThisWorkbook.Sheets("HiddenRec2")
Do Until .Cells(i, 2).Value = ""
UserForm2.WebBrowser2.Navigate2
"http://www.whatifsports.com/gd/rec_profile_top.asp?rid=" & .Cells(i,
2).Value & "&irp=0&aw=1"
'etc

NickHK

"CribbsStyle" wrote in message
oups.com...
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!