True, you don't need the numbers in Column A.

Your code works fine.

I posted standard code that will use whatever is in column A, be it numbers or a
list of unique names of all my grand-children.

But I wouldn't need A1:A300<g.


Gord

On Sun, 13 Jan 2008 01:51:18 -0500, "Rick Rothstein \(MVP - VB\)"
wrote:

Do you really need to put the numbers in Column A? This would work, right?

Sub NameWS()
Dim i As Long
On Error Resume Next
For i = 1 To Worksheets.Count
Sheets(i).Name = i
Next i
End Sub

Rick


"Gord Dibben" <gorddibbATshawDOTca wrote in message
.. .
You just want them numbered 1 to 300?

Enter the numbers 1 to 300 in column A of first sheet.

Run this macro.

Sub NameWS()
'name sheets with list in A1:A300 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


Gord Dibben MS Excel MVP

On Sat, 12 Jan 2008 22:11:00 -0800, albertmb
wrote:

Hi Everyone,

Is it possible to have a macro changing sheet numbers automaticaly. My
workbook contains over 300 sheets starting from number 1.

Thank you

Albert