for each sh in ActiveWorkbook.worksheets
for each qt in sh.QueryTables
Application.Goto qt.ResultRange, True
selection.Interior.ColorIndex = 5
msgbox "hit enter to continue"
Next
Next

--
Regards,
Tom Ogilvy



"Ben.c" wrote in message
...
Hi,
There is on my computer a macro which is using a querytable. And this
querytable is now disabled. when I start it, it's giving to me the message
"General ODBC Eroor". Could you explain me where I can found the querytable
to see if something have changed (I don't know where is the program of the
querytable) and what is this error ?
Thanks
Benjamin