Dim c As Range, SwitchToSubscript As Integer, SwitchToSuperScript As Integer
    
    For Each c In ActiveSheet.UsedRange.Columns( 1 ).Cells
        If (Left(c.Text,  1 ) >= "A") And (Left(c.Text,  1 ) <= "Z") Then
            c.Offset( 0 ,  2 ).Value = c.Text
            SwitchToSubscript =  1 
            Do While (SwitchToSubscript < Len(c.Text)) And (Not (IsNumeric(Mid(c.Text, SwitchToSubscript,  1 ))))
                SwitchToSubscript = SwitchToSubscript +  1 
            Loop

            If SwitchToSubscript <= Len(c.Text) Then
                SwitchToSuperScript = InStr(c.Text, "_")
                If SwitchToSuperScript >  0  Then
                    c.Offset( 0 ,  2 ).Value = Replace(c.Offset( 0 ,  2 ).Text, "_", "",  1 ,  1 )
                    c.Offset( 0 ,  2 ).Value = Replace(c.Offset( 0 ,  2 ).Value, "_", "-")
                End If
                
                c.Offset( 0 ,  2 ).Characters(SwitchToSubscript).Font.Subscript = True
                If SwitchToSuperScript >  0  Then
                    c.Offset( 0 ,  2 ).Characters(SwitchToSuperScript).Font.Superscript = True
                End If
            End If
        End If
    Next