サンプルマクロは、ブック内の文字色が赤色に設定されているセル
の文字色をすべて紫に変更します。

Sub Sample()

Dim myCell As Range
Dim mySht As Worksheet

    For Each mySht In Worksheets
        For Each myCell In mySht.UsedRange
            With myCell.Font
                If .ColorIndex = 3 Then .ColorIndex = 7
            End With
        Next
    Next
    
End Sub