With Range("A2").Characters(Len(Range("A2").Text) - 1, 2).Font
..Superscript = True
..Underline = True
End With

The problem with this is that the underlining is at the bottom of
the cell, not directly under the superscripted characters. I
don't think there is a workaround for this.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"L Scholes" wrote in message
oups.com...
I need to change the font of the last two characters in a cell,
but
only for certain cells (make last two superscript and
underlined). Does
anybody have any suggestions?