Excel Macro: Rename all Worksheets [Solved/Closed]

- Jul 9, 2010 at 10:44 AM - Latest reply:  ansvk1
- Sep 4, 2013 at 08:54 AM
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.
See more 

7 replies

Best answer
Registration date
Thursday January 28, 2010
Last seen
January 6, 2016
- Jul 9, 2010 at 04:50 PM
Thank you
Sub renameSheets()
Dim iSheetCount

    For iSheetCount = 1 To Sheets.Count
        Sheets(iSheetCount).Name = iSheetCount
    Next iSheetCount

End Sub

Thank you, rizvisa1 15

Something to say? Add comment

CCM has helped 1691 users this month

Thanks a bunch!
Many many thanks to you, good job, it was very helpful to me. Thank you again. :)
great! can you tell me how to have this new name in the formate of FiscalWeek 1,2,3,4...so on till FW32?
Thank you
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
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"
MsgBox "I won't rename sheets", vbOKCancel, "RENAME SHEETS"
End If
End Sub