Macro for Superscript

A

andiam24

Hello,

I am relatively new to the wonderful world of macros and would like to know
if any kind soul out there happens to have a solution to the following:

I need this expression 2.3E+03 @ 10-5 and 10-6 to read with the -5 and the
-6 as superscripts. I have made modifications to a macro I found
Sub Macro1()
n = Len(Trim(Left(ActiveSelection, 22)))
With ActiveSelection.Character(Start:=n, Length:=2).Font
..Superscript = True
End With
End Sub
Sub Macro2()
x = Len(Trim(Left(ActiveSelection, 22)))
With ActiveSelection.Character(Start:=x, Length:=2).Font
..Superscript = True
End With
End Sub

but I'm wondering if there's a simpler way. Not to mention I would like this
macro to automatically activate whenever data is in a cell and for an entire
column of data-not just the active cell
 
Top