Jason

The following user defined formula may help.

Function DetectSuperscript(Cell As Range)
For N = 1 To Len(Cell)
If Cell.Characters(Start:=N, Length:=1).Font.Superscript = True
Then
DetectSuperscript = Cell.Characters(Start:=N,
Length:=1).Text
Exit Function
End If
Next N
End Function

This will give you back the superscript character which you can then
use to reassemble your text string.

My email in on my homepage if you need a bit of extra help.


--
mrice


------------------------------------------------------------------------
mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931
View this thread: http://www.excelforum.com/showthread...hreadid=533425