That second to last line should have actually read:

AnyQueryTablesRefreshing = bln

--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Rob van Gelder" <newsgroups@nojunkmail-vangelder.co.nz> wrote in message
news:...
> If your query is in fact an Excel QueryTable, then you could check the
> Refreshing property of each QueryTable.
> To cancel a refreshing QueryTable, run the CancelRefresh method.
>
> Sub AllQueryTablesCancelRefresh()
> Dim qtb As QueryTable
>
> For Each qtb In ActiveSheet.QueryTables
> If qtb.Refreshing Then qtb.CancelRefresh
> Next
> End Sub
>
>
> Function AnyQueryTablesRefreshing() As Boolean
> Dim qtb As QueryTable, bln As Boolean
>
> bln = False
> For Each qtb In ActiveSheet.QueryTables
> If qtb.Refreshing Then
> bln = True
> Exit For
> End If
> Next
> AnyQueryTablesRefreshing = False
> End Function
>
>
> --
> Rob van Gelder - http://www.vangelder.co.nz/excel
>
>
> "Nicholas" <Nicholas@discussions.microsoft.com> wrote in message
> news:BFD7E8FC-ECC3-4258-BDA2-7F743803943C@microsoft.com...
>>I have a worksheet with a macro that grabs information from many URL
>>sources.
>> The macro looks for information within the query date entries after a
>> button
>> selection. What I would like to incorperate is a button to suspend the
>> macro. Or even better a message box stating the query is being compiled
>> with possibly a Cancel button.
>
>