Help with code please....

[CribbsStyle]

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!

 

[NickHK]

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]

So that code that you posted will go though each cell in column b on
that worksheet until it comes to a blank cell?

 

[NickHK]

Well, yes.
It's just a rearrangement of your code, using a "With
ThisWorkbook.Sheets("HiddenRec2")" block to shorten the code.

NickHK

 

[CribbsStyle]

Nope, that code didnt work either. Any other ideas?

 

[NickHK]

The web page is not returned because the website does not accept the URL.
The actual code runs fine without error.
You need to make sure the web site will accept URLs like this and if so that
you have the correct format.
Maybe to do with the login requirements and/or cookies etc.

NickHK

 

[CribbsStyle]

Nah the original code works fine for me and some other people, but then
there are a few people where that error happens and I cant figure out
why. We all have the same most up-to- date version of Excel 2003.

Guess I shouldnt of mentioned this earlier.

 

[NickHK]

In any browser, say FireFox, if I try e.g.:
http://www.whatifsports.com/gd/rec_profile_top.asp?rid=1245&irp=0&aw=1

the website returns an error page.
Post an example of a URL that works.
Without that, it's hard if the site or browser control is the cause.

If you add :
Debug.Print UserForm2.WebBrowser2.LocationName
what do you see ?

NickHK