Adjust start, length & colourindex number to suit you needs
ActiveCell.Characters(Start:=1, Length:=5).Font.ColorIndex = 50
ActiveCell.Characters(Start:=6, Length:=2).Font.ColorIndex = 6
ActiveCell.Characters(Start:=8, Length:=3).Font.ColorIndex =
--
Message posted from
http://www.ExcelForum.com