You gave me an answer back on the 11th which worked fine. I've come back to the program today and it has stopped working again (it now has your suggested code) any other ideas?
The error I get is
Run-time error '70':
This is happening after the file has been created and as I try to
Set txsHdrSingle = filHdrSingle.OpenAsTextStream(ForWriting)