Superscript and Subscript within a cell VBA.

Someone asked (on another forum) what shortcut keys did Super and Sub scripts in Excel. The answer is there is really no keyboard shortcut keys to do that.

The best answer to the shortcut key was to select the word (or letter) in the formula area and then right click on the selected word and then -> Format Cells...
On the Format Cells Dialog is a checkbox for Superscript and another for Subscript. If you check these and click OK it will give you what you want...

This seemed a little too hard so I've created another method for doing the above.

The following code will allow you to do multiple super or sub scripts at once.

Run one of the first macros below and it will ask what characters are to be scripted. They you can then click on a single cell or range of cells to do the action.

I hope some can use this to save themselves some time.

Please Login or Register  to view this content.

I've seen other methods where people put brackets around what they want super or sub scripted. Maybe the above method will work better than all that extra typing.

When I was working in a chemistry lab I always wanted something to do this.

I found an add-in somewhere that did it. I could have sworn it was from John Walkenbach but a quick search of his site turned up nothing.

FE2O3
FE₂O₃