(excel_2010_VBA) Как подправить код

[lapin912]

Есть макрос который выделяет все ячейки со шрифтом как в активной ячейке, а как сделать чтобы макрос искал и заменял цвет шрифта, например белый на черный, при запуске макроса.
Sub ЦветШрифта()
On Error Resume Next
Dim i, x, rngSelect As Range
Set rngSelect = ActiveCell
i = rngSelect.Font.Color
For Each x In ActiveSheet.UsedRange.Cells
If x.Font.Color = i Then Set rngSelect = Union(rngSelect, x)
Next
With ActiveCell
rngSelect.Select
.Activate
End With
End Sub

[AleksandrH]

if x.Font.Color = vbWhite then x.Font.Color = vbBlack

[lapin912]

Сообщение от AleksandrH

if x.Font.Color = vbWhite then x.Font.Color = vbBlack

Спасибо, работает. "А ларчик просто открывался".