try this
For i = 1 To ActiveSheet.QueryTables.Count
ActiveSheet.QueryTables(i).Refresh False
Next

--
Don Guillett
SalesAid Software

wrote in message
ps.com...
The soloution to Web query returned no data message -

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