Change last character to subscript

Routine #18 from our series of text subroutines to use in EXCEL to change the last character of a string to subscript in the selected cells.

Code snippet below:

Sub last_charcter_subscript() 'last char subscript
Dim selected_range As Range
Set selected_range = Range(Selection.Address)

Dim old_value As String
For Each cell In selected_range
 old_value = vbNullString: old_value = cell.Value
 With cell
 .Font.Superscript = False
 .Font.Subscript = False
 .Characters(Start:=Len(.Value), Length:=1).Font.Subscript = True
 End With
End Sub

You can see how to add this to Excel in order to use the code in this thread UPPER CASE

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>