Select range and the run this macro.


Sub ChangeColor()

Dim rng As Range, c As Range
'
Set rng = Selection
For Each c In rng
If c.Interior.ColorIndex = 13 Then ' Change if not correct value for
ColorIndex
c.Interior.ColorIndex = 3
End If
Next c
End Sub


HTH

"goofy11" wrote:

> I'm new to VBA and am interesting in having macro that after highlighting a
> range of cells, would evaluate each cell's color. For every cell that is
> purple, I want it to be changed to red.
>
> Thanks,
>
> Jeff