Шаг 1. Подготовьте список названий

Создайте на первом листе список новых названий в столбце А (начиная с ячейки A1). Убедитесь, что количество названий соответствует количеству листов в вашей книге, которые вы хотите переименовать.

Шаг 2. Откройте редактор VBA

Нажмите комбинацию клавиш Alt + F11, чтобы открыть встроенный редактор макросов Microsoft Visual Basic for Applications.

Шаг 3. Создайте новый модуль

В верхнем меню редактора выберите Insert -> Module. В открывшееся пустое окно вставьте следующий код:

Sub RenameSheetsFromList()
    Dim i As Long
    Dim wsList As Worksheet
    Dim newName As String
    Set wsList = ActiveSheet
    For i = 1 To ThisWorkbook.Sheets.Count
        newName = wsList.Cells(i, 1).Value
        If Len(newName) > 0 Then
            On Error Resume Next
            ThisWorkbook.Sheets(i).Name = newName
            If Err.Number <> 0 Then
                MsgBox "Не удалось переименовать лист " & i & " в " & newName, vbCritical
                Err.Clear
            End If
            On Error GoTo 0
        End If
    Next i
End Sub

Шаг 4. Запустите макрос

Вернитесь в Excel, убедитесь, что активен лист со списком имен. Нажмите Alt + F8, выберите макрос RenameSheetsFromList и нажмите кнопку Выполнить (или нажмите F5 прямо в редакторе VBA).