It appears that Graeme is the only one that has seen your document and workbook so it might be difficult for others to chime in with help.
If xlBook.sheets(1).Range("A1").PasteSpecial ("HTML") works successfully then adding the suggested lines immediately after that should still have the xlBook.sheets(1) object available to you.
If that code to add a column is failing then perhaps there are merged cells that are causing the issue.
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
|