Set XlSheet = Nothing
Set XlWorkbook = Nothing
Set Xl = Nothing

This is duplicate code that could be inside your Exit_Sub label 1x
only.

You can 'dump' an entire range into a variant in 1 shot...

Dim vAttrData

I switched to using SolidWorks in 1998 and so I can't recall how you'd
load an entire Acad Attribute Table into a VBA variable in 1 shot, or
vice versa. (Seems we used a text file source, perhaps?)

To go from a worksheet to the variable...

vAttrData = XlSheet.UsedRange

...which results a 2D array equal to the num rows/cols of data on the
worksheet.

Similarly, you could load your Attribute Table into an array and 'dump'
it into the worksheet in 1 shot.(Note that this needs to be a 2D array
for all to work smoothly!)

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion

---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus