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 Next End Sub
You can see how to add this to Excel in order to use the code in this thread UPPER CASE