hiii all..

How to rename all sheets in a exce at once automatically.

i have 10 sheets in excel. Is there any option to rename all 10 work sheets
at once.
I am spending lot of time on renaming all sheets.
plz help me

Narendra

Example of before/after desires

--
Don Guillett
SalesAid Software

"Narendra Boga" wrote in message
...
hiii all..

How to rename all sheets in a exce at once automatically.

i have 10 sheets in excel. Is there any option to rename all 10 work
sheets
at once.
I am spending lot of time on renaming all sheets.
plz help me

Narendra

You can do this with a macro.

Rather than posting a generic macro, describe what you want the sheets re-named
to an a tailored-to-your-needs macro could be posted.


Gord Dibben MS Excel MVP

On Sat, 2 Jun 2007 07:01:04 -0700, Narendra Boga
wrote:

hiii all..

How to rename all sheets in a exce at once automatically.

i have 10 sheets in excel. Is there any option to rename all 10 work sheets
at once.
I am spending lot of time on renaming all sheets.
plz help me

Narendra

Hi,

The direct answer to the question "Is there any option to rename all 10 work
sheets at once." is no.

But as others have suggested you can do it with a macro, the problem is how
do you decide what the sheet names are.

Suppose you enter the sheet names in cells A1:A10 of Sheet1.

Sub NameSheets()
Dim N As Variant
N = Sheets(1).Range("A1:A10").Value
For I = 1 To 10
Sheets(I).Name = N(I, 1)
Next I
End Sub




Cheers,
Shane Devenshire


"Narendra Boga" wrote:

hiii all..

How to rename all sheets in a exce at once automatically.

i have 10 sheets in excel. Is there any option to rename all 10 work sheets
at once.
I am spending lot of time on renaming all sheets.
plz help me

Narendra

Thanq very much shane... it works....



"ShaneDevenshire" wrote:

Hi,

The direct answer to the question "Is there any option to rename all 10 work
sheets at once." is no.

But as others have suggested you can do it with a macro, the problem is how
do you decide what the sheet names are.

Suppose you enter the sheet names in cells A1:A10 of Sheet1.

Sub NameSheets()
Dim N As Variant
N = Sheets(1).Range("A1:A10").Value
For I = 1 To 10
Sheets(I).Name = N(I, 1)
Next I
End Sub




Cheers,
Shane Devenshire


"Narendra Boga" wrote:

hiii all..

How to rename all sheets in a exce at once automatically.

i have 10 sheets in excel. Is there any option to rename all 10 work sheets
at once.
I am spending lot of time on renaming all sheets.
plz help me

Narendra