Tim

Macro ok?

''list of sheet names in a workbook - placed on a new worksheet
Sub ShowNames()
Set wkbkToCount = ActiveWorkbook
iRow = 1
With Sheets.Add
For Each ws In wkbkToCount.Worksheets
.Rows(iRow).Cells(1).Value = ws.Name
iRow = iRow + 1
Next
End With
End Sub


Gord Dibben Excel MVP

On Fri, 27 May 2005 09:45:14 -0700, "Jugglertwo"
wrote:

Is there any way to print the names of the spreadsheet tabs in a workbook?
I would like to print a list of the 50 worksheet tabs that I have in my
workbook to a paper.
It would be ideal if the list could be produced on another spreadsheet in
this same workbook.
Any suggestions would be greatly appreciated !
Thanks !
Tim