如何使宏从列表中命名工作表名称

Question

目前我有代码连续抓取每个工作表名称并将其放入列表中。我想要的是一个代码，它将读取第一个工作表上列表中的名称，并连续重命名工作表中的每个页面。

Sub ListWorkSheetNamesNewWs()
Dim xWs As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
xTitleId = "TabNames"
Application.Sheets(xTitleId).Delete
Application.Sheets.Add Application.Sheets(1)
Set xWs = Application.ActiveSheet
xWs.Name = xTitleId
For i = 2 To Application.Sheets.Count
    xWs.Range("A" & (i - 1)) = Application.Sheets(i).Name
Next
Application.DisplayAlerts = True
End Sub

Answer 1

Sub RenameSheets()
    For i = 1 To 200
        On Error Resume Next
        oldname = Cells(i, 3).Value
        newname = Cells(i, 2).Value
        Sheets(oldname).Name = newname
    Next
End Sub

将C1中的旧名称放下，将新名称放入B1中。