Renaming Multiple Worksheet

[Guest]

HI

Is it possible to rename all the worksheet with referal to cell range
Lets say I have 10 worksheet. In worsheet a, I fill up cell a1-a10 with list of date, which to
be use to rename the rest of the worksheet

Pls any Master of excel can help me to write a macro to do this.
Millions Thanks,

 

[Bob Umlas]

Try this:
Sub NameWS()
On Error Resume Next
For i=1 to 10
Sheets(i).Name=Sheets("A").Cells(i,1).Value
Next
End Sub

Bob Umlas
Excel MVP

 

[Guest]

HI BOB

The macro only work on first sheet, the rest of the sheet doesnt change at all
Pls advise....THanks..--


----- Bob Umlas wrote: ----

Try this
Sub NameWS(
On Error Resume Nex
For i=1 to 1
Sheets(i).Name=Sheets("A").Cells(i,1).Valu
Nex
End Su

Bob Umla
Excel MV

 

[Frank Kabel]

Hi
try
Sub NameWS()
On Error Resume Next
For i=1 to 10
Sheets(i).Name=Sheets(1).Cells(i,1).Value
Next
End Sub

If sheet 'A' ist your first sheet. Problem is that after changing the
first sheet, shett 'A' does not exist anymore

 

[Guest]

Hi

Wow, it work fantasticly!

Thanks a lot Frank,.........