Import Data Form Website

Doing all 47 pages at once may cause their site to block your IP. Though usually only temporarily - a few minutes to a few days. You could do it in sessions by changing "For i = 1 To 47" to the appropriate page numbers. After each session be sure to rename the "Stats" sheet as the code starts by deleting and re-creating it. After all sessions combine the various "Stat" sheets.

Doing all 47 at once will take a few minutes to complete and you won't see anything happening. The cursor will only spin occasionally. You wil get "Query complete" when it finishes.

Code:

Sub QueryWeb()
Dim i As Integer
Dim firstRow As Integer
Dim lastRow As Integer
Dim nextRow As Integer
Dim URLstart As String
Dim URLend As String

[Code]....

This code works like charm. Is is possible to develop a code like this which open each each name from this page- [URL]....

AND

copy details like Attorney Name, email, phone and fax nos. and paste the same into excel rows.