文字色をまとめて変換する｜Excel VBA

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

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