Code to remove specific font colour from cells across workbook?

[NDERE96]

Hi all,

I'm look for some code that can help me to replace a specic font colour from every used cell across a workbook. Specifically trying to change text colour from Red to Black for whichever cells that apply across a number of different sheets.

*I'm comepletely new to VBA so any help will be appreciated.

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub ndere()
   Dim Ws As Worksheet
   
   With Application
      .FindFormat.Clear
      .ReplaceFormat.Clear
      .FindFormat.Font.Color = vbRed
      .ReplaceFormat.Font.ColorIndex = xlAutomatic
   End With
   For Each Ws In Worksheets
      Ws.UsedRange.Replace "?", "", , , , , True, True
   Next Ws
   With Application
      .FindFormat.Clear
      .ReplaceFormat.Clear
   End With
End Sub

 

[NDERE96]

Hi & welcome to MrExcel.
How about

Sub ndere()
   Dim Ws As Worksheet
  
   With Application
      .FindFormat.Clear
      .ReplaceFormat.Clear
      .FindFormat.Font.Color = vbRed
      .ReplaceFormat.Font.ColorIndex = xlAutomatic
   End With
   For Each Ws In Worksheets
      Ws.UsedRange.Replace "?", "", , , , , True, True
   Next Ws
   With Application
      .FindFormat.Clear
      .ReplaceFormat.Clear
   End With
End Sub

Hi I tried this and it didn't work at all?

 

[Fluff]

What colour red are you using?

 

[NDERE96]

What colour red are you using?

RGB (255, 0 , 0)

 

[NDERE96]

RGB (255, 0 , 0)

Should also mention that some cells have both black and red text in them and I'm just looking to recolour the red text.

 

[Fluff]

Should also mention that some cells have both black and red text in them and I'm just looking to recolour the red text.

That is completely different.
Roughly how many used cells do you have, as the code will need to loop through every character in every cell, so it could take a while.

 

[NDERE96]

That is completely different.
Roughly how many used cells do you have, as the code will need to loop through every character in every cell, so it could take a while.

Lets say around 800ish lines and 27 columns to be exact. I was also planning on using this for a workbook that has a different no. of rows and columns across several worksheets.

 

[Fluff]

Do you have any othered coloured text, or is it just red & black?

 

[NDERE96]

Do you have any othered coloured text, or is it just red & black?

There are a few cells that have Dark blue text in them aswell e.g. RGB (0,112,192). Might be others too.

In essence, all I'm looking for is all Non- black text (excluding White text) to be changed to Black, if that helps?