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