Minor modifications of existing script

I have a few question about the code below.

1. At most, I run 4812 url's thru this loop and after a minute or so, Excel freezes and eventually crashes. Is there a way to slow down the script? Put in short pauses or something?

2. As the script is running, and the rows gets filled with results, the latest results are not shown on the screen because they are too far down in the sheet. I can see the results as they get filled in row 1 to 33, then they are outside the screen. Can change the script so it scrolls down for every result that comes in, so that I can always see the latest result?

3. Sometimes I fill column A in sheet1 with about 100 url's, sometimes it's 3000. Can I change the script to go all the url's in column A, no matter how many there are? What I do now, is changing "Sheet2.Range("A2:A4812").Cells" so it matches exactly the number of url's I've put in column A. I want the script to only go thru the cells that has an url in it, no matter how many, or few, cells that might be.

Please Login or Register  to view this content.