This might get you started.......modify as needed
Sub HighlightCharacter()
With ActiveCell.Characters(Start:=3, Length:=2).Font
.FontStyle = "Bold"
.Size = 14
.ColorIndex = 3
End With
End Sub

Vaya con Dios,
Chuck, CABGx3


"Jack Sons" wrote in message
...
Hi all,

I want to do something (change font size and font color f.i.) with the
part of the content of the active cell that is between the second and the
third chr(10). What code do I need?

I thank you in advance for your advice.

Jack Sons
The Netherlands