Superman for superscript

[darro]

I would like to be able to add a superscript button to my toolbar along side the bold, italic and underline buttons. I know it is unavailable through the customise toolbars method so my question is this. How can I do it?

I often have to enter m3 or kgm3 or m2 etc into cells, or sometimes it is already entered into cells for me and then I need to superscript the 2 or 3. Because the character needing to be superscripted is in a different place each time, and sometimes in a string of text I am unable to use a Len type macro, what i need to be able to do is select the text I want superscripted and run my macro and hey presto, its done.

Anyone out there who can figure this one out?

 

[nbrcrunch]

I turned on the macro record and recorded the process. Then I cleaned it up a bit

How to use:
Type whatever you want in a cell, ending with the superscript value. (As presented here, it can only be 1 character in length.)
Press Enter
Re-select the cell (but don't put in edit mode) and run the macro.
(I'm assuming you know how to add a button and associate it with a macro.)

Sub SuperScrptMe()
With ActiveCell.Characters(Start:=Len(ActiveCell), Length:=1).Font
.Superscript = True
End With
End Sub

 

[darro]

Thanks Crunch.

Thats great, but... can it be made to allow me to superscript what I want no matter where it is the string of text? Sometimes the data I receive includes the text around what needs to be superscripted.

my ideal is something like the Bold or Italic button, I select the cell, select the character to be suped and click macro button and hey presto its done.

What do you think?

 

[ossuary]

I think the problem is that you can't run a macro while you are in "edit" mode inside a cell's contents. Isn't that true? If there is a way, I'm not aware of it, which would make any custom macro you made not executable while you were highlighting the character or characters you wanted to superscript...

 

[darro]

Yes that is a problem, maybe when the supe macro is run an input box opens containing the active cells text, allowing me to highlight the character/s to be suped and when I click OK it does it?

Is that possible?