Is there a way to find out, if more than one font is used in a cell?

The example below shows how to use different fonts in one cell.
I need to test if this is done and if it is done to get the differen
font objects.

Range("B5").Select
ActiveCell.FormulaR1C1 = "abcdef"
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Superscript = False
End With
With ActiveCell.Characters(Start:=3, Length:=1).Font
.Superscript = True
End With
With ActiveCell.Characters(Start:=4, Length:=3).Font
.Superscript = False
End With
Range("B6").Selec

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com