Resaltar celdas con texto rojo

Tengo una columna de texto en la que algunos caracteres (no celdas) están en letra roja. ¿Hay alguna forma de resaltar las celdas que contienen caracteres rojos a través del formato condicional? Las soluciones de VBA también estarían bien.

No conozco ninguna función incorporada que verifique el color individual de cada carácter dentro de una celda, sin embargo, puede escribir una en VBA.

Esta función iterará a través de cada carácter y devolverá verdadero si uno de los caracteres es rojo. Tenga en cuenta: este código solo funciona en el rojo estándar que está disponible, no funcionará en todos los tonos.

'Only works on the standard Red Colour
Function ContainsRed(CellCheck As Range) As Boolean
    For i = 1 To Len(CellCheck.Value) Step 1
        If CellCheck.Characters(i, 1).Font.Color = vbRed Then
            ContainsRed = True
            Exit Function
        End If
    Next i
    ContainsRed = False
End Function

Después de crear la fórmula, puede crear una nueva regla de formato. Haga clic en la pestaña de inicio, formato condicional, Nueva regla.

Para usar con la Columna A
Haga clic en la última opción "Usar una fórmula para determinar qué celdas formatear" y use la fórmula de esta manera: = Contiene Rojo (A2)
Haga clic en Aceptar y cambie la aplicación a Aplica a la columna que desee, en este caso será $ A: $ A.

Puede encontrar ayuda con el formato condicional aquí.

Set ws = Sheets("Cost Analysis compare")

For r = 1 To 104
    For c = 1 To 36
        If (ws.Cells(r, c).Font.Color = 255) Then
            ws.Cells(r, c).Interior.ColorIndex = 44
        End If
    Next c
Next r