renaming the worksheets incrementally

[kin1]

hello,

can someone help me with a macro that includes a loop that will rename the worksheets within a work book as 01, 02, 03, etc. the number of worksheets are dynamic.

thanks,

 

[kpark91]

Dim i As Long
For i = 1 To Worksheets.Count
    Worksheets(i).Name = Format$(i, "##")
Next i

 

[Sthrncali]

Sub NameSheets()
Dim ws As Worksheet
Dim i As Integer
i = 1
For Each ws In Worksheets
ws.Name = i
i = i + 1
Next
End Sub

 

[texasalynn]

try this

Sub Rename_Sheets()
    Dim i As Integer, x As Integer
       x = 1
    For i = 1 To ActiveWorkbook.Worksheets.Count
        Sheets(i).Activate
        Sheets(i).Name = WorksheetFunction.Text(x, "00")
        x = x + 1
    Next i
MsgBox "Done"
End Sub

 

[kin1]

you guys are awesome thank you!