Sounds perfect...I'm glad you found the reference.

One thing I noticed is that the .getattribute does not get the handle .textstring. Thats why I added the the line
XlSheet.Range("A" & RowNum) = "'" & "'" & elem.Handle
It was the only way I was able to get it to give the handle and put the ' in front