Delete CF fill color, replace with regular fill color. Short code, can't figure it out!

Originally Posted by protonLeah

Dim cell As Range
Set r12 = Range(r10.Offset(1), r10.End(xlDown))
For Each cell In r12
     If cell.FormatConditions(1).Interior.Color = 49407 Then
           cell.FormatConditions.Delete
     End If
Next cell

Thanks, and how do I fill the color if "red" the statement is true but only for those cells? I've tried it before and it fills the entire range rather than the few cells where the CF applied (aka it was filled 49407).