Sub m23SuperScript() 'приводим м2 м3, а также км2, дм3, см, мм и т.д. к красивому виду с приподнятым шрифтом
    Dim objRE As Object, objMatch As Object, sS As String, rC As Range, bytB As Byte
        Set objRE = CreateObject("VBScript.RegExp") 'формируем объект регулярного выражения
        With objRE 'задаем параметры - искать все совпадения, игнорировать регистр и задаем шаблон поиска
            .Global = True
            .ignorecase = True
            .Pattern = "[mм][23]" 'паттерн показывает искать сочетание букв из набора "mм" (Без учета регистра) с цифрами из набора "23"
        End With
        For Each rC In Selection 'пребираем ячейки в выделенном диапазоне
            If objRE.Test(rC) Then 'если в ячейке есть подходящее сочетание (test выдаст True)
                Set objMatch = objRE.Execute(rC) 'получаем всю коллекцию совпадений
                With objMatch
                    For bytB = 0 To .Count - 1 ' для каждого элемента коллекции совпадений (Item считается с 0)
                        'в ячейке отступаем от позиции начала совпадения 2 символа и изменяем шрифт для 1 символа на приподнятый
                        rC.Characters(.Item(bytB).firstindex + 2, 1).Font.Superscript = True
                    Next bytB
                End With
            End If
        Next rC
        Set objRE = Nothing: Set objMatch = Nothing: Set rC = Nothing 'обнуляем объектные пременные
End Sub