Paste this into a vb module and run. It will put all the worksheet names into
Col A of the active worksheet.

Sub namesheets()
x = 1
Dim sht As Worksheet
For Each sht In Sheets
ActiveSheet.Cells(x, 1) = sht.Name
x = x + 1
Next sht
End Sub

Mike

"tor" wrote:

Any way to put together a list of the names of all worksheets in a workbook
in an excel worksheet?