Sheet Names

[Accor]

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

 

[Gary''s Student]

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

 

[Bob Phillips]

For i = 1 To Worksheets.Count

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

 

[ryguy7272]

Try this code here:
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---

 

[Gord Dibben]

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