Option Explicit
' Меняет в формуле ячейки ссылки на адреса ячеек на имена диапазонов
Sub CellChgFormula(ByVal Cell)
    Dim rg As Range, bChange As Boolean, formula As String, sFrom, sTo, i As Long, j As Long
    Dim matches As Object, match As Object
    Static regex As Object

    If regex Is Nothing Then
        Set regex = CreateObject("Vbscript.Regexp")
    End If
    regex.IgnoreCase = True: regex.Global = True
    regex.Pattern = "[!]?[$]?[A-Z]{1,3}[$]?[1-9][0-9]{0,6}([:][$]?[A-Z]{1,3}[$]?[1-9][0-9]{0,6})?" ' адрес диапазона ячеек (после имени листа)
  
    If IsObject(Cell) Then
        Set rg = Cell
    Else
        Set rg = Range(Cell)
    End If
    If Not rg.HasFormula Or rg.Cells.Count > 1 Then Exit Sub
    formula = rg.formula

    bChange = True
    Do While bChange
        bChange = False
        Set matches = regex.Execute(formula)   ' Execute search.
        If matches Is Nothing Then
            Exit Sub
        End If
        
        For Each match In matches
            sFrom = match.Value
            i = 1 + match.FirstIndex  ' номер первого символа найденного текста
            j = i + Len(sFrom) - 1    ' номер последнего символа найденного текста
     
            If Left(sFrom, 1) = "!" Then ' необходимо слева найти имя листа
                If Mid(formula, i - 1, 1) = "'" Then ' имя листа заключено в апострофы
                    i = InStrRev(formula, "'", i - 2)
                    If i = 0 Then
                        sFrom = ""
                    End If
                Else  ' в имени листа только буквы, цифры, знак подчеркивания
                    While i > 2 And (UCase(Mid(formula, i - 1, 1)) <> LCase(Mid(formula, i - 1, 1)) Or Mid(formula, i - 1, 1) Like "[0-9_]")
                        i = i - 1
                    Wend
                End If
                sFrom = Mid(formula, i, j - i + 1)
            End If
     
            ' sFrom  - адрес ячейки
            ' слева от найденного адреса не должно быть буквы, цифры, знака подчеркивания
            If sFrom <> "" Then
                If UCase(Mid(formula, i - 1, 1)) <> LCase(Mid(formula, i - 1, 1)) Or Mid(formula, i - 1, 1) Like "[0-9_]" Then sFrom = ""
            End If
    
            ' слева от найденного текста должно быть четное число двойных кавычек
            If sFrom <> "" Then
                If UBound(Split(Left(formula, i - 1), """")) Mod 2 <> 0 Then sFrom = ""
            End If
     
            If sFrom <> "" Then
                On Error Resume Next
                sTo = Range(sFrom).Name.Name
                If Err.Number = 0 Then
                    rg.formula = Left(formula, i - 1) & sTo & Mid(formula, j + 1)
                    bChange = (Err.Number = 0)
                    On Error GoTo 0
                    If bChange Then
                        formula = rg.formula
                        Exit For
                    End If
                End If
                On Error GoTo 0
            End If
        Next match
    Loop
End Sub

' Меняет в ячейках диапазон ссылки на адреса ячеек на имена диапазонов
Sub RangeChgFormula(ByVal r)
    Dim rg As Range, c As Range
    If IsObject(r) Then
        Set rg = r
    Else
        Set rg = Range(r)
    End If
    Application.ScreenUpdating = False
    For Each c In rg.SpecialCells(xlCellTypeFormulas).Cells
        CellChgFormula c
    Next c
    Application.ScreenUpdating = True
End Sub

Sub TestSel()
  RangeChgFormula Selection
End Sub

Selection.Replace ".", ".", xlPart