How to improve performance for a Macro checking cells out in a big range

...Hi everybody,

I need some help again from a VBA Guru probably...

Iīve created this little Macro below to change the font color of some cells on a table...

Sub ResetCellFormats()
Set TargetCells = Range("C:AI,AL:GE")

If [ConditionalTextFormattingButton] = 3 Then

    For Each cell In TargetCells
    If cell.Font.ColorIndex = 26 Then cell.Font.ColorIndex = 1
    Next

End If
End Sub

The problem is, the table Iīm applying the Macro to is so big that it take ages...2248 rows !!

isnīt there another more efficient way to approach this aim with VBA Code?

As you can see in the code above, itīs only abaout changing the font color to black for the cell values in the table containing a magenta color font...

Thanks in advance for your help,
Ruben