Make a table of contents for workbook w/50+ sheets?

[SSGeek]

I have a workbook with about 50+ worksheets and want to list all worksheet labels in 1 sheet. Is there a way to do this w/out having to manually type each one? I also want to convert them to hyperlinks for easy access, essentially, a table of contents. Is there a way to convert all at once, or do you have to do each cell individually?

 

[VoG]

Try running this macro

Sub IDX()
Dim ws As Worksheet, i As Integer
Worksheets.Add(before:=Worksheets(1)).Name = "Index"
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Index" Then
        i = i + 1
        Sheets("Index").Range("A" & i).Value = ws.Name
        Sheets("Index").Hyperlinks.Add Anchor:=Range("A" & i), Address:="", SubAddress:="'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
    End If
Next ws
Sheets("Index").Columns("A").AutoFit
End Sub

 

[srkj]

http://www.mrexcel.com/articles/table-of-contents-macro.php

please see the above thread

 

[SSGeek]

Incredible! You just saved me a couple hours worth of work.
Thanks, much appreciated!