the worksheet has 4 sheets of macro calls: INC, ES And A.P., A.F., A.Q.. I make a copy to the new worksheet with:
ThisWorkbook.Sheets("INC").Copy Before:=oWks.Sheets(1)
ThisWorkbook.Sheets("E.S. E A.P.").Copy Before:=oWks.Sheets("INC")
ThisWorkbook.Sheets("A.F.").Copy Before:=oWks.Sheets("E.S. E A.P.")
ThisWorkbook.Sheets("A.Q.").Copy Before:=oWks.Sheets("A.F.")

if statements inside the for-loop are for this new spreadsheet and copied to the new sheets. So I have to first enable the worksheet and then each sheet in order to value their cell comparable with the variables cd and cc.