The Web query returned no data

This is how you are able to cancel out this message note the code below
was with help of many people, but the 2 main ones being "Parry" from
MrExcel.com and **** Kusleika from here on this google group.
The code is as follows!

Public Sub Test()
Dim Qrytbl As QueryTable

For Each Qrytbl In ActiveSheet.QueryTables
On Error Resume Next
Qrytbl.Refresh False
On Error GoTo 0
Next Qrytbl
End Sub

Happy refreshing!

Timothy

Please stay in the original thread.

--
Don Guillett
SalesAid Software
[email protected]
<[email protected]> wrote in message
news:[email protected]...
> This is how you are able to cancel out this message note the code below
> was with help of many people, but the 2 main ones being "Parry" from
> MrExcel.com and **** Kusleika from here on this google group.
> The code is as follows!
>
> Public Sub Test()
> Dim Qrytbl As QueryTable
>
> For Each Qrytbl In ActiveSheet.QueryTables
> On Error Resume Next
> Qrytbl.Refresh False
> On Error GoTo 0
> Next Qrytbl
> End Sub
>
> Happy refreshing!
>
> Timothy
>