Hello,
Yes, I have fonts in white, red, black and another colours.
It would be perfect to have a code that finds every text in red in the workbook and change the color into black.
Thanks!
Sub Get_Color_Code()
Range("A1").Select
MsgBox Selection.Font.Color
End Sub
Sub gubertu()
Dim Ws As Worksheet
With Application
.FindFormat.Clear
.FindFormat.Font.Color = 255
.ReplaceFormat.Clear
.ReplaceFormat.Font.ColorIndex = xlAutomatic
End With
For Each Ws In Worksheets
Ws.UsedRange.Replace "", "", xlPart, , , , True, True
Next Ws
End Sub
Sub gubertu()
Dim Ws As Worksheet
With Application
.FindFormat.Clear
.FindFormat.Font.Color = 255
.ReplaceFormat.Clear
.ReplaceFormat.Font.ColorIndex = xlAutomatic
End With
For Each Ws In Worksheets
Ws.UsedRange.Replace "", "", xlPart, , , , True, True
Next Ws
With Application
.FindFormat.Clear
.ReplaceFormat.Clear
End With
End Sub