Actually you were very close to getting the corrrect answer yourself:

Sub sheetorg()
n = 1
For Each w In Worksheets
w.Name = "SACL" & Format(n, "000")
n = n + 1
Next
End Sub
--
Gary's Student


"Shahzad Zameer" wrote:

Dear "Gary''s Student"

Thank you for your help regarding the Renaming the Many Worksheets at a
time. Please can you do more favor that if I want to put name of the sheets
like this SACL0001, SACL0002 or ABCD001, ABCD0002 and so on then how to put
this formula. I tried to put w.Name = Format(n, "SACL000") instead of w.Name
= Format(n, "000") but its not working. When I put w.Name = Format(n,
"AB000") its working fine but more than two letters its not working. Please
help me in this regards too.

Thank you in advance.

Best Regards

--
Shahzad Zameer


"Gary''s Student" wrote:

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