Delete ALL ListObjects

[QB]

When I import an XML file in Excel 2003 it creates a listobject

'List1'

but in Excel 2007 it creates a listobject

'Table1'

An in my code I unlist the list but since the name changes
(ActiveSheet.ListObjects("Table1").Unlist),..., I don't know how to handle
it. As such, how can I made a more generic code to unlist any and an
listobject found.

Thank you,

QB

 

[Ron de Bruin]

If you active cell is in the Table you can use

ActiveCell.ListObject.Unlist

 

[QB]

Found one possible solution

http://www.microsoft.com/office/com...&p=1&tid=3baa57f7-c9d0-43fa-a184-f339561d1a29

QB