My sheet has a number of queries that look at the web to return tables
of share prices. I use this statement


Worksheets("Data").Range(B1).QueryTable.Refresh

for each stock.

I would like to run all the queries at once rather than looping
through each one - in an effort to speed it up.
Can it be sped up? What might the code look like?

Thanks

Gavin

On Apr 30, 12:10*pm, deniseandga...@gmail.com wrote:
> My sheet has a number of queries that look at the web to return tables
> of share prices. *I use this statement
>
> Worksheets("Data").Range(B1).QueryTable.Refresh
>
> for each stock.
>
> I would like to run all the queries at once rather than looping
> through each one - in an effort to speed it up.
> Can it be sped up? *What might the code look like?
>
> Thanks
>
> Gavin

I forgot to mention that B1 changes for each stock - say B15, B25, B35
etc

Perhaps a better way to do this would be to have ONE query with a looping
macro using a variable and exporting the data to another area for use as
desired.


--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
<(E-Mail Removed)> wrote in message
news:57292f5b-f7ae-4c8e-8ef1-(E-Mail Removed)...
> My sheet has a number of queries that look at the web to return tables
> of share prices. I use this statement
>
>
> Worksheets("Data").Range(B1).QueryTable.Refresh
>
> for each stock.
>
> I would like to run all the queries at once rather than looping
> through each one - in an effort to speed it up.
> Can it be sped up? What might the code look like?
>
> Thanks
>
> Gavin