Hi all I'm getting a 438 error when trying to run the below code

Please Login or Register  to view this content.
The error seems to occur on line

Please Login or Register  to view this content.
The references I have selected are as follows (in order)
Visual Basic for Applications
Microsoft Excel 11.0 Object Library
OLE Automation
Microsoft Office 11.1 Object Library
Microsoft XML, v6.0

I'm running Excel 2003 on windows xp.

Any suggestions?

Many thanks in advance

GK