Rename ThisWorkbook.vba to ThisWorkbook.cls