Conditional formatting on status column.... see attached image

If you view the image. conditional formatting has to be manually performed on status column. I need a macro to automaticaaly compare values in each of two rows and change the value in status as up, down or level.

you could do this with a formula

set the cell's font name to "Symbol" and use this formula:

=IF(B1>A1,CHAR(173),IF(B1<A1,CHAR(175),CHAR(171)))

I have the formula.... I need a vba code for all worksheets, so i can automate it. have several sheets

ok
so do I have this right - you want to copy the formula into several columns on several worksheets
how will the macro know where to copy to - is it always in the same column, for example, or always in a column with "Staus" in cell A1?

I will explain you the whole story,

We get data every month and ammend to an extra column added to the previous month column, after comparing 3 months data we delete the duplicate cells and the remaining cells are shown in the report. as you can see the status column shows that the attribute for that particular row is equal or higher or lower depending on the values in the cell for current month and previous month. so the status is derived by using if statement of previous month and current month. Using windings font I get the arrows and color as red. after this step we do conditional formatting as if the values in previous month and this month is 0 then we color the status column cell as black and level.


I need a macro to do the status comparison and conditional formatting.

Any help would be appreciated