Quick Access Macro to conditional format active cells

Hi,

I frequently use the following conditional formatting for a lot of my Excel files' cells:

98,0% and below = Red fill
Between 98,0% - 98,5% = Yellow fill
98,5% and above = Green fill

However, it costs me a lot of time doing this manually many times per day. It would be really beneficial to have a Quick Access macro in which I can highlight all the cells I want formatted, and simply press the button to do the formatting for me.

Does anyone know how this VBA code would look? I know how to add the button to the toolbar, but am at a complete lost code-wise.

Many thanks for any help on this one!

Hi Sixthsense,

Thanks for the prompt response. The code looks great and I've added it to my file, however all values come up as Red, no matter what it is. I've tried changing the cell formatting (from general to percentage), the number, and nothing so far is resolving the issue. Do you have an idea why this could be?

It seems the same issue is coming up - when I fire the macro, all activated cells just turn red no matter the value.

Would it be possible to send me a file with an example of this code working? If so, I really appreciate it!

Hi Again,

I've been messing around with the code a bit and got it to work. I changed it so that it doesn't have to have to be a percentage per se.

I have one further issue however. If I highlight a range of cells, some of which do not meet the conditions of the code, all the formatting erases on the ones that are not relevant. How to I get the code to only erase & reformat the cells that meet the conditions?

My current code for reference:

Please Login or Register  to view this content.