renaming all work-sheets at once

[Guest]

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

 

[Don Guillett]

Example of before/after desires

 

[Gord Dibben]

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

 

[Guest]

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

 

[Guest]

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

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