Routine #15 from our series of text subroutines to use in EXCEL to replace all superscript and subscript characters to normal characters in the selected cells.
Code snippet below:
Sub remove_super_subscript() 'remove_super_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 cell.Font.Superscript = False cell.Font.Subscript = False Next End Sub
You can see how to add this to Excel in order to use the code in this thread UPPER CASE