Assistance needed with case statement changing cell and font colors

Hello all

I have the following Case statement that changes all the cells to the correct color, but does not change the Font color as specified in the Case. All the text is White (fcolor = 2) instead of just the 3 types of cells specified.

Please Login or Register  to view this content.

I tried commenting out part and all of the With block but that only changes the font to all black and/or removes the cell colors.

Can someone please help with this code?

Thanks in advance!!!
Andrew

You need to reset the value of fColor each time:

Please Login or Register  to view this content.