The Web query returned no data (Soloution)

[TiTuS]

this is the soloution to this annoying message when using web querys.
When using this code please remember to acknowledge the people who put the time and effort in. The main 2 being firstly "Parry" MrExcel MVP and secondly **** Kusleika from the google tech group of "microsoft . public . excel . programming"
without these to i would have never completed this code, the code is as follows:

code:
--------------------------------------------------------------------------------
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
--------------------------------------------------------------------------------


Yours, TImothy

 

[mrclox]

for the not so technical of us where do i put this code?