Hi,

this is quick and dirty but seems to work:

Sub change_Sheet_Name()
Dim i As Integer
For i = 1 To 400
Sheets(i).Name = i
Next

End Sub

Hope this helps

Shahzad Zameer wrote:
Dear All,

Can anyone help me? I have a workbook & have more than 400 worksheets in
that file. I want to rename all worksheets at a time i.e. 001 to 400 and so
on. Is there any way to solve my problem? I tried to search but couldn't find
specifically.

Thank you in advance.