What is the value of rng(x,1) when you get the error?
The .open method will return the '5' error if, for example, there is nothing in the cell and rng(x,1) evaluates to empty.

Maybe try changing
.Open "GET", rng(x, 1), False
to
.Open "GET", "http://www.google.com", False
and see if that works?