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

 

[Krishnakumar]

Hi,

Try,

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

HTH

 

[DougStroud]

Hi Kris,
Sorry, but I get a Run-time error: 1004
Unable to get the count property of the characters class

this occurs on N = Worksheets("Sheet1").Range("A1").Characters.Count

 

[Krishnakumar]

Do you have a sheet named "Sheet1"?

 

[DougStroud]

Yes Kris,
But from the error, it seems like the reference to the sheet is not the issue, but rather an issue w/ the number of characters for the count property.
But this is just a guess on my part.

thanks,

doug

 

[Krishnakumar]

It works fine for me. I don't know what exactly causing the error

 

[DougStroud]

what value do you have in A1

 

[Norie]

Doug

It isn't possible to superscript part of a number.

 

[DougStroud]

Hmmmm,
I wonder what Kris got then?

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

 

[Norie]

Doug

Well if Kris has a number in A1 he'll get an error.

What are you actually trying to achieve?