Excel Macro: Rename all Worksheets Solved/Closed

Question

So, I'm trying to figure out a way to rename all the worksheets in a workbook.

the first worksheet would be "1" (without the quotation marks) and continue up for each worksheet, so the second worksheet would be 2, the third worksheet 3, etc.

any help will be much appreciated.
thanks

rizvisa1 · Accepted Answer

Sub renameSheets()
Dim iSheetCount

    For iSheetCount = 1 To Sheets.Count
        Sheets(iSheetCount).Name = iSheetCount
    Next iSheetCount

End Sub

Mani · Answer

Sub renameSheets()
' Selected Sheets doing Rename
' No of Sheets
' Enter rename of sheets

Dim a, b As Integer
a = MsgBox("Do you want rename sheets", vbOKCancel, "RENAME SHEETS")
If a = vbOK Then
b = InputBox("How many sheets are rename?", "RENAME SHEETS")
For I = 1 To b
    Sheets(i).Select
    a = InputBox("Enter name to be change in sheets" & (i), "Rename Sheets")
    Sheets(i).Name = a
    MsgBox "Rename Sheet" & (i), vbInformation, "RENAME SHEETS"
Next i
MsgBox "Sheets are renamed", vbInformation, "RENAME SHEETS"
Else
MsgBox "I won't rename sheets", vbOKCancel, "RENAME SHEETS"
End If
End Sub

Excel Macro: Rename all Worksheets

2 responses

Similar discussions

Subscribe To Our Newsletter!