Spreadsheet tab names?

[excel_stu]

I have a spreadsheet with at least 20 different tabs all named differently. Is there a quick way of producing a list of these tab names on a different tab in the same workbook?

Thanks

 

[iggydarsa]

Sub tabNames()
    Set NewSheet = Sheets.Add(Type:=xlWorksheet)
    For i = 1 To Sheets.Count
        NewSheet.Cells(i, 1).Value = Sheets(i).Name
    Next i
End Sub

 

[excel_stu]

Thanks

 

[tusharm]

Depending on what you plan to do with the list, you may also want to look at
Table of Contents
http://www.tushar-mehta.com/excel/software/maketoc/index.html

and
Workbook Navigator for Excel
http://www.tushar-mehta.com/excel/software/utilities/wb_nav.html