Hi all

I have a spreadsheet with around 20 sheets; sheet1, sheet2, sheet3 etc.

Is there any shorter way to re-name them either from a list or let's say
call it. Month 1, Month 2, Month 3 without having to type one by one.

Thanks in advance

Sub name_um()
i = 1
For Each ws In Worksheets
ws.Name = "month " & i
i = i + 1
Next
End Sub

--
Gary''s Student - gsnu200800

For i = 1 To Worksheets.Count

Worksheets(i).name = Avctivesheet.Cells(i, "A").Value
Next i

--
__________________________________
HTH

Bob

"Accor" wrote in message
...
Hi all

I have a spreadsheet with around 20 sheets; sheet1, sheet2, sheet3 etc.

Is there any shorter way to re-name them either from a list or let's say
call it. Month 1, Month 2, Month 3 without having to type one by one.

Thanks in advance

Try this code he
http://www.ozgrid.com/forum/showthread.php?t=55611
Just put your names in A1 (or A3 in this example) and run the macro.

Regards,
Ryan---


--
RyGuy


"Accor" wrote:

Hi all

I have a spreadsheet with around 20 sheets; sheet1, sheet2, sheet3 etc.

Is there any shorter way to re-name them either from a list or let's say
call it. Month 1, Month 2, Month 3 without having to type one by one.

Thanks in advance

Your choice

Sub NameWS_List()
'name sheets with list of unique names in A1:A20 on first sheet
On Error Resume Next
For i = 1 To Worksheets.Count
Sheets(i).Name = Sheets(1).Cells(i, 1).Value
Next i
End Sub

Sub NameWS_Month()
'name sheets as Month 1, Month 2 etc.
On Error Resume Next
For i = 1 To Worksheets.Count
Sheets(i).Name = "Month " & i
Next i
End Sub


Gord Dibben MS Excel MVP

On Thu, 14 Aug 2008 09:23:00 -0700, Accor
wrote:

Hi all

I have a spreadsheet with around 20 sheets; sheet1, sheet2, sheet3 etc.

Is there any shorter way to re-name them either from a list or let's say
call it. Month 1, Month 2, Month 3 without having to type one by one.

Thanks in advance