try this
Dim myListObject As ListObject
Set myListObject = ActiveSheet.ListObjects(1)
Dim q As Integer
For q = myListObject.ListRows.Count To 1 Step -1
myListObject.ListRows(q).Delete
Next q
"DangerMouse" wrote:
Hi,
Is there a simple line of VB that can be used in a macro to delete all
records from an XML map?
Thnx
--
DangerMouse
------------------------------------------------------------------------
DangerMouse's Profile: http://www.excelforum.com/member.php...o&userid=27755
View this thread: http://www.excelforum.com/showthread...hreadid=538053