ClearContents Not Clearing Query

[Sean McPoland]

Hi ya'll

I have a sheet with a Import External Data from Access
query on it.

I am trying to programatically clear it with the
following code:

Cells.Select
Selection.ClearContents
Selection.QueryTable.Delete
Range("A1").Select

When I do it manually it works and the query is removed
from the sheet, but in the VBA module it does not remove
the query.

Am I doing something wrong or can someone help me with
this problem?

Thanks in advance
regards
Sean

 

[Don Guillett]

try
Sub noquery()
With ActiveSheet
..UsedRange.ClearContents
..QueryTables(1).Delete
End With
End Sub