Sub UpdateNamedRanges()
    Dim nName As Name
    Dim oldAddress As String
    Dim newAddress As String
    
    For Each nName In ThisWorkbook.Names
        oldAddress = nName.RefersTo
        
        If InStr(1, oldAddress, "$EB$", vbTextCompare) > 0 Then
            newAddress = Replace(oldAddress, "$EB$", "$EC$")
            
            nName.RefersTo = newAddress
            
            Debug.Print "Имя: " & nName.Name & " изменено с " & oldAddress & " на " & newAddress
        End If
    Next nName

    MsgBox "Обновление диапазонов завершено!", vbInformation
End Sub

Sub UpdateNamedRangesWithProgressBar()
    Dim nName As Name
    Dim oldAddress As String
    Dim newAddress As String
    Dim totalNames As Long
    Dim currentIndex As Long
    Dim searchValue As String
    Dim replaceValue As String
    Dim activeWorkbook As Workbook

    Set activeWorkbook = Application.ActiveWorkbook

    searchValue = InputBox("Введите значение, которое нужно заменить (например, $EB$):", "Значение для замены")
    If searchValue = "" Then Exit Sub ' Отмена, если ничего не введено

    replaceValue = InputBox("Введите новое значение, на которое нужно заменить (например, $EC$):", "Новое значение")
    If replaceValue = "" Then Exit Sub ' Отмена, если ничего не введено

    totalNames = activeWorkbook.Names.Count
    currentIndex = 0

    'прогресс-бар
    Set ProgressForm = VBA.UserForms.Add("ProgressForm")
    ProgressForm.ProgressBar.Width = 0
    ProgressForm.ProgressLabel.Caption = "Обновление диапазонов..."
    ProgressForm.Show vbModeless

    For Each nName In activeWorkbook.Names
        currentIndex = currentIndex + 1
        UpdateProgressBar currentIndex, totalNames
        oldAddress = nName.RefersTo

    ' Проверяем, содержит ли диапазон искомое значение и меняем его на новое
        If InStr(1, oldAddress, searchValue, vbTextCompare) > 0 Then
            newAddress = Replace(oldAddress, searchValue, replaceValue)

            nName.RefersTo = newAddress

            Debug.Print "Имя: " & nName.Name & " изменено с " & oldAddress & " на " & newAddress
        End If
    Next nName

    ' Закрываем форму прогресс-бара после завершения
    Unload ProgressForm
    MsgBox "Обновление диапазонов завершено!", vbInformation
End Sub

Sub UpdateProgressBar(currentIndex As Long, totalNames As Long)
    ' Обновление ширины прогресс-бара и текста на форме
    If Not ProgressForm Is Nothing Then
        With ProgressForm
            .ProgressBar.Width = (.ProgressFrame.Width - 2) * (currentIndex / totalNames)
            .ProgressLabel.Caption = "Обновление: " & currentIndex & " из " & totalNames & _
                                     " (" & Format(currentIndex / totalNames, "0%") & ")"
            DoEvents ' Обновление интерфейса
        End With
    End If
End Sub