Rename multiple excel sheets

A

ACCA

New member
Joined
Feb 7, 2017
Messages
23
Reaction score
0
Points
1
Excel Version(s)
excel 2007
I want to rename all excel sheets based on list of sheets names contained in excel sheet named "List" , range from " A1:A32"
 
.
Code: 
Option Explicit

Sub RenameSheets()
    Dim c As Range
    Dim J As Integer


    J = 0
    For Each c In Range("A1:A32")
        J = J + 1
        If Sheets(J).Name = "Sheet1" Then J = J + 1 '<-- change SHEET1 to name of LIST SHEET
        Sheets(J).Name = c.Text
    Next c
End Sub
 
Code: 
Sub Rename_Sheets()
Dim i As Long
If ThisWorkbook.Sheets.Count <= Worksheets("List").Cells(Rows.Count, 1).End(xlUp).Row Then MsgBox "Insufficient sheets in workbook.": Exit Sub
For i = 2 To Worksheets("List").Cells(Rows.Count, 1).End(xlUp).Row
    Sheets("Sheet" & i).Name = Worksheets("List").Cells(i - 1, 1).Value
Next i
End Sub
Or any of these solutions.
https://excelribbon.tips.net/T001506_Renaming_Worksheets_Based_On_a_List.html
https://docs.microsoft.com/en-us/office/troubleshoot/excel/use-macro-rename-sheet
https://www.automateexcel.com/vba/rename-sheet
https://stackoverflow.com/questions/30792101/need-a-vba-code-rename-sheets-from-list
https://www.mrexcel.com/board/threads/macro-to-copy-and-rename-sheets-from-list.741559/
https://www.mrexcel.com/board/threads/rename-multiple-worksheets-based-on-a-list.1048792/
https://www.extendoffice.com/documents/excel/609-excel-rename-worksheets.html
 
Code: 
Sub Rename_Sheets()
Dim i As Long
If ThisWorkbook.Sheets.Count <= Worksheets("List").Cells(Rows.Count, 1).End(xlUp).Row Then MsgBox "Insufficient sheets in workbook.": Exit Sub
For i = 2 To Worksheets("List").Cells(Rows.Count, 1).End(xlUp).Row
    Sheets("Sheet" & i).Name = Worksheets("List").Cells(i - 1, 1).Value
Next i
End Sub
 
You must log in or register to reply here.
Back
Top