Delete Red Fonts

[hartless43]

Below is a code that a user place here about 5 years ago and it still works.

Sub DeleteRedFont()
Dim rng As Range

Set rng = [B2:J2]
For Each cell In rng
 If cell.Font.ColorIndex = 3 Then
  cell.ClearContents
 End If
Next cell

End Sub

This will delete any cell with a red font. However, if it was created from Conditional Formatting it won't delete it. So, is there a work around this?

 

[Fluff]

Use

If cell.Displayformat.Font.ColorIndex = 3 Then

 

[hartless43]

Thanks, Fluff, I have been looking for this answer for a long time and yours works.

 

[Fluff]

You're welcome & thanks for the feedback.