목록에서 워크 시트 이름을 매크로로 만드는 방법

Question

현재 각 작업 시트 이름을 연속적으로 가져 와서 목록에 넣는 코드가 있습니다. 내가 원한 것은 첫 번째 작업 시트의 목록에있는 이름을 읽고 워크 시트의 각 페이지의 이름을 연속적으로 바꿀 수있는 코드입니다. 아래 C1, 장소 새 이름에서 B1의 아래에서

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 

장소 옛 이름.