Deleting a QueryTable

[brendanolear]

I have inherited an excel workbook with macros that is freezing or falling over at this particular point:Selection.QueryTable.Delete

Sheets("Delivery Report").Select
Rows("2:65536").Select
Selection.ClearContents
Selection.QueryTable.Delete

I have deleted all QueryTables using Ctrl F3 and tried rerunning but still falls over at same point and no query tables now exist.

Can anyone advise where I should be looking now to resolve?

Thank You

 

[John_w]

Surround the code with the following If statement:

If Sheets("Delivery Report").QueryTables.Count > 0 Then