I am trying to create a refresh macro that turn a number of cells back to
green.

I no i can do it at a an individual cell (i have pasted the code i have
used) level is there an easier less time consuming way as i have quite a few
cells i need to do this for.

Range("B2").Select
ActiveCell.FormulaR1C1 = "Green"