Roy,

I need to check what happens to 'Read Only' files.

There was a line miising from the code 
Set wsActive = ActiveWorkbook.ActiveSheet
I have put this into your code and all works fine, thank you.

As a matter of interest do you know what code I need to use to leave the workbook as I found it after deleting and inserting worksheets, what was the activeworkdheet.