Obs.: Também é possível fazer através do Substituir, o problema é que tem que fazer o De/Para cor por cor.

Não sei se entendi, mas creio que básicamente seria algo +/- assim:

Sub Troca_Cor()
Set myrng = ActiveSheet.UsedRange

For Each wcel In myrng
    If wcel.Interior.Color = RGB(192, 0, 0) Then
        wcel.Interior.Color = RGB(32, 35, 100)
    ElseIf wcel.Interior.Color = RGB(242, 220, 219) Then
        wcel.Interior.Color = RGB(149, 179, 215)
    End If
Next
End Sub

Porem deve ser adaptada a sua realidade

Muito Obrigado Reinaldo, é isso mesmo que preciso, agora é só eu adicionar outros critérios mudando a palavra "Interior" para "Borders" e "Font".
Valeu!!!