Rename ThisWorkbook.cls to ThisWorkbook.doc