Hi Reno,

May be you will find some inspiration in this event module :

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Range("A1")
With Target.Characters(Start:=1, Length:=3).Font
.ColorIndex = xlAutomatic
End With
With Target.Characters(Start:=4, Length:=2).Font
.ColorIndex = 5
.Bold = True
End With
End Sub


HTH
Cheers
Carim