Code error

[joelnichols]

For some reason this code will error now and then. Anyone got the solution?


Sub QueryTableRefresh()
Dim qt As QueryTable
Application.OnTime Now + TimeValue("00:02:00"), "QueryTableRefresh"
For Each qt In Worksheets("yahoo2").QueryTables
qt.Refresh
Next qt


End Sub

On debug the "qt.refresh" is highlighted yellow. I also have other queries in this book. Can they be conflicting somehow?

 

[joelnichols]

The error is runtime 1004. Operation cannot be done because data is refreshing in the background.