VBA code to change font color from red to black

[gubertu]

Hi all,

I´m looking for a code that changes in all the workbook, all the text that is in red colored (red font), into black (black font).

Would it be possible?

Thanks in advance!

 

[Fluff]

Will the "in (-)" only ever be in red?

 

[gubertu]

Yes please

 

[Fluff]

Ok, how about

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
   End With
   For Each Ws In Worksheets
      Ws.UsedRange.Replace "in (-)", "in (-)", xlPart, , , , False, True
   Next Ws
   Application.ReplaceFormat.Clear
End Sub

 

[gubertu]

This is just what I wanted. Thanks very much for your help!! This code is great!

 

[Fluff]

You're welcome & thanks for the feedback