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 Dick 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