Make last character in cell superscript

[DougStroud]

This is an example off MS Help. This works if the last character is alpha, but fails if it is numeric.
Can this be altered to show a number w/ a superscript number?

This example makes the last character in cell A1 a superscript character.[/size]

Sub MakeSuperscript()
    Dim n As Integer

    n = Worksheets("Sheet1").Range("A1").Characters.Count
    Worksheets("Sheet1").Range("A1").Characters(n, 1) _
    .Font.Superscript = True
End Sub

 

[DougStroud]

Norie,
I was reading up on Range objects in the MS help and ran across this example. I thought it would be cool to be able to show a number w/ an exponent.
It is of curiousity and not a definite need right now. It could be cool to show the exponent in (), I wonder if that will work?
I will have to go play w/ it. If you get any ideas, feel free to shoot them my way.

thanks,

doug

 

[Krishnakumar]

Hmmmm,
I wonder what Kris got then?

Kris? What value do you have in "A1"?

Did you notice this

Worksheets("Sheet1").Range("A1").NumberFormat = "@"

line. I changed the number to Text value and applied the superscript.

HTH

 

[DougStroud]

Hi Kris,
I did, and I altered my code to what you had posted. I am using the code below and even changed the cell format to Text, but still get the run-time error.
<a href="http://img80.imageshack.us/my.php?image=superscriptkw4.png" target="_blank">

</a>

Here you can see everything by clicking on this link:
http://img80.imageshack.us/my.php?image=superscriptkw4.png

Option Explicit


Sub MakeSuperscript()
    Dim n As Integer

    n = Worksheets("Sheet1").Range("A1").Characters.Count
    Worksheets("Sheet1").Range("A1").NumberFormat = "@"
    Worksheets("Sheet1").Range("A1").Characters(n, 1) _
    .Font.Superscript = True
End Sub