Hi Larbec,

Actually, you only need 1 marco in "Thisworkbook". For the others, delete them.

And change the Array List to include all the sheet like the follow.

`SheetNameList = Array("NUMBERS E-O1 ", "NUMBERS E-O2", "NUMBERS E-O3", "NUMBERS E-O4", "NUMBERS E-O5", "NUMBERS E-OBB", "NUMBERS EO1", "NUMBERS EO2", "NUMBERS EO3", "NUMBERS EO4", "NUMBERS EO5", "NUMBERS EOBB", "NUMBERS EEOO1", "NUMBERS EEOO2", "NUMBERS EEOO3", "NUMBERS EEOO4", "NUMBERS EEOO5", "NUMBERS EEOOBB", "50+HITS E-O1 ", "50+ HITS E-O2 ", "50+ HITS E-O3 ", "50+ HITS E-O4 ", "50+HITS E-O5", "50+ HITS E-O BB", "50+ HITS EO1 ", "50+ HITS EO2 ", "50+ HITS EO3 ", "50+ HITS EO4 ", "50+ HITS EO5", "50+ HITS EOBB ", "50+ HITS EEOO1 ", "50+ HITS EEOO2 ", "50+ HITS EEOO3 ", "50+ HITS EEOO4 ", "50+ HITS EEOO5", "50+ HITS EEOOBB", "OB HITS E-O1 ", "OB HITS E-O2 ", "OB HITS E-O3 ", "OB HITS E-O4 ", "OB HITS E-O5", "OB HITS E-OBB ", "OB HITS EO1 ", "OB HITS EO2 ", "OB HITS EO3 ", "OB HITS EO4 ", "OB HITS EO5", "OB HITS EOBB ", "OB HITS EEOO1 ", "OB HITS EEOO2 ", "OB HITS EEOO3 ", " OB HITS EEOO4 ", " OB HITS EEOO5", "OB HITS EEOOBB ")`

Be careful... If your sheet doesn't contains any data... it will becomes an endless loop. For example, when you click on "NUMBERS E-O3" Cells H1.

And for the Cells color, I think you are using "Conditional Formatting". So you need to setup the formula for the particular sheets.

Hope this help.