That's it Gert and it works fine. I wonder what the difference was in this file and the one I used. I had not changed the formatting and yours is set to General.

To use thisworkbook path I am using this:
[VBA]sFilename = ThisWorkbook.Path & "\SQL Reading Excel.xls"[/VBA]