Run-time error '5': Invalid procedure call or argument

**ragulduy** · 07-29-2013, 09:58 AM

What happens if you load up internet explorer (or another web browser) and try and access one of the sites in your sample? Try:
http://miami.craigslist.org/brw/pts/3949953392.html
I'm thinking that as the code worked on one machine but not when you changed systems that maybe you have restricted web usage or the links are now dead.

What happens if you run this code:

Sub test()
Dim rng, lr As Long, a, res As String, x As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
rng = Range("a2:b" & lr)
x = LBound(rng)
With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", rng(x, 1), False
    .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .send rng(x, 1)
    MsgBox .responsetext
End With
Range("a2:b" & lr) = rng
End Sub

Do you get a messagebox? What does it say?

**mcbruce76** · 07-29-2013, 10:27 AM

When I do it manually, am able to do it and all these links are from the past week, all links are live and fine. Am just not able to figure out how I did it last time. I am very sure that it was a button which i used with this code. all I had to do was to copy the links approximately 800 to 1000 links at a time, and then enter the button. It would fetch the description from each link in the next column. Am such numb skull, not able to figure out.