Just noticed that u also left the 'S' off of .Cols in this line

If llngCols <> .Cols Then lstrClipCopy = lstrClipCopy & vbTab

Let me know what errors u get if u get any
If errors are to do with Excel try this. Run the code with all Excel stuff commented out. Then open Excel and simply Paste the clipboard. See if that works
Regards
Stuart