Fill cell colour based on value

I have a selected range of cells. I need code to go through each cell in the selection, and if the cell's value is "1" then fill the cell green, and if the cell is blank, then fill the cell red.

Conditional formatting isnt an option in this case.

If anyone has any ideas, I'd be most grateful. Thanks in advance.