First make sure none of the old names are the same as the new names (we can't
have two sheets with the same name) The enter and run:

Sub sheetorg()
n = 1
For Each w In Worksheets
w.Name = Format(n, "000")
n = n + 1
Next
End Sub


If you not familiar with macros, see:

http://www.mvps.org/dmcritchie/excel/getstarted.htm
--
Gary's Student


"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.
--
Shahzad Zameer