Partialy Change Font Color to Another Color

[greenculture]

this code change the red font color to green font color.... it is working code but getting error msg can you solve this

Public Sub FontColorInCellPart()

Dim c As Range
Dim i As Integer

For Each cell In ActiveSheet.UsedRange
   
   For i = 1 To Len(cell)
      If cell.Characters(i, 1).Font.color = RGB(255, 0, 0) Then
         cell.Characters(i, 1).Font.color = RGB(0, 255, 0)
      
      End If
   Next i
Next cell

End Sub

 

[greenculture]

Excel vba change font color for part of text

SOLVED Run-time error '-2147417848(80010108)'; Method "Color" of object "Font" Failed
THANX FOR SydneyGeek

​

Excel vba change cell font color


Excel vba change font color for part of text


Partial change font colour within cell

 

[greenculture]

@SydneyGeek some time ur code converting black text red....pls test with my excel file............test it for all rows

http://4india.my3gb.com/RED.xlsm