You may find this to be more efficient for your list

Sub listsheets()
For i = 1 To Worksheets.Count
Cells(i, "a") = Sheets(i).Name
Next i
End Sub



--
Don Guillett
SalesAid Software

"StevenP" wrote in message
...
Hi there,

Can anybody help me with the code the generate a list of all the sheet
names
in my workbook.

Preferably the code should create a new sheet in the workbook and then
list
all the names starting in cell A1, going down.

Thanks for the help.

Regards,

Steven P