ClearContents Not Clearing Query

S

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
 
D

Don Guillett

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