Format individual characters when length exceeds X

[detriez]

Cell B2 has a numeric value= 5
Cell A2 has text with 12 characters
Looking to a way to format the font for characters in 6,7,8,9,10,11,12 in cell A2 to red

I can only find a way to conditionally formatting for the entire cell

 

[yky]

Do a macro recording and you'll get the code.

 

[Rick Rothstein]

Cell B2 has a numeric value= 5
Cell A2 has text with 12 characters
Looking to a way to format the font for characters in 6,7,8,9,10,11,12 in cell A2 to red

Give this macro a try...

[table="width: 500"]
[tr]
	[td]Sub ColorExcessTextInCellA2()
  Range("A2").Font.Color = vbBlack
  Range("A2").Characters(Range("B2").Value + 1, 99).Font.Color = vbRed
End Sub[/td]
[/tr]
[/table]