for i = 1 to cells(rows.count,1).end(xlup).row
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://" & cells(i,1) & ".com" _
, Destination:=Range("$A$1"))
next i

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Ryan" wrote in message
...
I have a sheet populated with web address URLs in column A. I would
like to loop a macro that imports multiple URLs.

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://examplewebsite.com" _
, Destination:=Range("$A$1"))

Any way to make the "URL; call on a variable or cell address from
another sheet where I can loop through and have all websites import
rather than copy and pasting a rediculous amount of times?

Thanks,