Rename ThisWorkbook.doc to ThisWorkbook.sht