I am trying to enter distances in Excel cells and want the feet to be
normal script and the inches be in underlined superscript. Is there a
VBA code that will automatically convert the last two digits entered
into the cell? Any help will be appreciated.

Sub AAA()
With ActiveCell.Characters(Len(ActiveCell.Value) - 1, 2).Font
.Superscript = True
.Underline = True
End With

End Sub

possibly. This only works with constant values - not cells containing
formulas.

--
Regards,
Tom Ogilvy




wrote in message
ups.com...
I am trying to enter distances in Excel cells and want the feet to be
normal script and the inches be in underlined superscript. Is there a
VBA code that will automatically convert the last two digits entered
into the cell? Any help will be appreciated.

How do I get this only in selected cells? I have two columns (separated
by several rows) so I have 4 printable sheets. I only want the
"Measurement" cells to format this way, not the other, "Description,"
cells.

Sub AAA()
for each cell in Range("A2:A20,C2:C20,D2:E20")
With Cell.Characters(Len(Cell.Value) - 1, 2).Font
.Superscript = True
.Underline = True
End With
Next
End Sub

Change the range reference to match the layout of your data.

--
Regards,
Tom Ogilvy



"L Scholes" wrote in message
oups.com...
How do I get this only in selected cells? I have two columns (separated
by several rows) so I have 4 printable sheets. I only want the
"Measurement" cells to format this way, not the other, "Description,"
cells.

I used this code in both a module and the code for Sheet1 and it
doesn't seem to have any effect.??? (When I get this sheet working I
will change the references as appropriate.)

Sub AAA()
For Each Cell In Range("C5:C59,D5:D59")
With Cell.Characters(Len(Cell.Value) - 1, 2).Font
.Superscript = True
.Underline = True
End With
Next
End Sub

This is called rich text formatting and can only be done on cells that
contain TEXT Constants (not numbers, not formulas). If your cells contain
numbers, then you would modify it to make them text as I have done below


Sub AAA()
For Each Cell In Range("C5:C59,D5:D59")
cell.Value = "'" & cell.Text
With Cell.Characters(Len(Cell.Value) - 1, 2).Font
.Superscript = True
.Underline = True
End With
Next
End Sub


--
Regards,
Tom Ogilvy

"L Scholes" wrote in message
oups.com...
I used this code in both a module and the code for Sheet1 and it
doesn't seem to have any effect.??? (When I get this sheet working I
will change the references as appropriate.)

Sub AAA()
For Each Cell In Range("C5:C59,D5:D59")
With Cell.Characters(Len(Cell.Value) - 1, 2).Font
.Superscript = True
.Underline = True
End With
Next
End Sub

I used this code in both a module and the code for Sheet1 and it
doesn't seem to have any effect.??? (When I get this sheet working I
will change the references as appropriate.)

Sub AAA()
For Each Cell In Range("C5:C59,D5:D59")
With Cell.Characters(Len(Cell.Value) - 1, 2).Font
.Superscript = True
.Underline = True
End With
Next
End Sub

What do you have stored in the cells?

--
Regards,
Tom Ogilvy

"L Scholes" wrote in message
oups.com...
I used this code in both a module and the code for Sheet1 and it
doesn't seem to have any effect.??? (When I get this sheet working I
will change the references as appropriate.)

Sub AAA()
For Each Cell In Range("C5:C59,D5:D59")
With Cell.Characters(Len(Cell.Value) - 1, 2).Font
.Superscript = True
.Underline = True
End With
Next
End Sub