hi, rasonline, may be I'm wrong but the root of the problem is not the marked line.

As far as I can see the problem is here:

 'Rename sheet and colour tab
    ActiveSheet.Name = "Import"
    With ActiveWorkbook.Sheets("Import").Tab
        .Color = 5287936
        .TintAndShade = 0
    End With
If you refer to Excel 2003 VB help file (you saved it as .xls definining Excel 2003 VB for this code) the Tab Object has the following properties:

- Application property
- Color Property
- ColorIndex Property
- Creator Property
- Parent Property

So .TintAndShade property is not used in Excel 2003. Solution: try to comment it out and run the code, I suppose it will run without any troubles.