VBA To Change Cell Colors?

I'm trying to update a workbook with a new look and want to change the cell color based upon what the cell color currently is.

I'm having problems with the code that I created. I just can't seem to get the syntax correct for the code.

For the code below, my Range of A5:D5 is just a test range where each cell should change colors. When completed, my range will be much greater.

Code:
Sub ChangeColors()
Dim Cell As Range
For Each Cell In Range("A5:D5")

[Code]....