Vba code color interior change depending on cell value %

[Alpacino]

I have a value in C1 say 10 got value D1 say 100 (budget) I want to change the color of the cell C1 if the value Is greater than 5% of D1 to Red and if it's under 5% it's yellow. And I like this to repeat from row 1 to 35
Thank you in advance
Alan

 

[fat-tony]

<nods in="" appreciation="">

My attempt was that of a novice in all things VBA.

Yours is that of an expert, much neater and compact.

Vive la difference!

Hehehe I was going to say the same thing. Mine was as a novice and yours was as an expert. I am going to nabb your code for a WS im playing with.
</nods>