This should be a good start:
Sub vignesh() Dim StartChar As Integer, _ LenColor As Integer For i = 1 To 5 With Sheets("Sheet1").Cells(i, 1) StartChar = InStr(1, .Value, "|") If StartChar <> 0 Then LenColor = Len(.Value) - StartChar + 1 .Characters(Start:=StartChar, Length:=LenColor).Font.Color = RGB(255, 0, 0) End If End With Next i End Sub
source share