Dunguinha,

Veja se o exemplo abaixo te atende.

Sub mudaCorCelula()
    'Definimos com qual planilha iremos trabalhar
    With ThisWorkbook.Sheets("Plan1")
        Dim vLinha As Long
        Dim vColuna As Long
        Dim vCor As Long
        .Activate
        'Definimos a linha inicial
        vLinha = 1
        'Definimos a coluna inicial
        vColuna = 2
        'Enquanto a celula atual for diferente de nulo
        While .Cells(vLinha, vColuna) <> ""
            'Selecionamos a celula
            .Cells(vLinha, vColuna).Select
            'Enquanto a coluna selecionada for menor ou igual ao total de colunas usadas na planilha
            'e a celula atual for diferente de nulo
            While vColuna <= .UsedRange.Columns.Count And ActiveCell <> ""
                'Selecionamos a celula
                .Cells(vLinha, vColuna).Select
                'Armazenamos o numero da cor da celula
                vCor = Selection.Font.Color
                'Comparamos o que foi retornado
                'com o numero da cor azul
                'e se for igual, pintamos de vermelho
                If vCor = 12611584 Then .Cells(vLinha, vColuna).Font.Color = -16776961
                'incrementamos e passamos para a proxima linha
                vLinha = vLinha + 1
            Wend
            'incrementamos e passamos para a proxima coluna
            vColuna = vColuna + 1
            'reiniciamos o contador de linha para a inicial
            vLinha = 1
        Wend
    End With
End Sub

Abs

Sub MudaCorFonte()
 Dim r As Range
  For Each r In Range("B1:D9")
   If r.Font.Color = 12611584 Then r.Font.Color = 255
  Next r
End Sub

Gente era isso mesmo, ficou perfeito.
Obrigado pessoal.