Too many worksheets

Right click on the tab arrow keys and a list of the sheets will be displayed. If too many there will be a "More Sheets..." option.

HTH
texasalynn

Just a thought here, especially if you do not hae any other information on your sheets than what you were stating in your message. This may be an easier way to set up your file. Instead of 1 sheet per name, you could combine all into one sheet, then sort the names alpha. and would save you lots of time without having 100 sheets.

Welcome to the Board!

Here's some code that will build a hyperlinked Table of Contents of each sheet in your workbook. It's pretty handy for big workbooks. Note that I don't know who to give credit to, but HOTPEPPER dig modify it a bit a while back.

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> LinkSheetNames2()
<SPAN style="color:#007F00">'   Revised by HOTPEPPER</SPAN>

    <SPAN style="color:#00007F">With</SPAN> Application
        .ScreenUpdating = <SPAN style="color:#00007F">False</SPAN>
        .DisplayAlerts = <SPAN style="color:#00007F">False</SPAN>
    
    i = 2
    n = ActiveWorkbook.Worksheets.Count
        <SPAN style="color:#00007F">For</SPAN> b = 1 <SPAN style="color:#00007F">To</SPAN> n
            <SPAN style="color:#00007F">If</SPAN> Worksheets(b).Name = "Table of Contents" <SPAN style="color:#00007F">Then</SPAN>
                Worksheets(b).Delete
            <SPAN style="color:#00007F">Else</SPAN>
                Worksheets.Add.Name = "Table of Contents"
                Range("A1") = "Table of Contents"
                <SPAN style="color:#00007F">GoTo</SPAN> Table
            <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
        <SPAN style="color:#00007F">Next</SPAN>
    
Table:
    n = n + 1
    a = 2
    i = 2
        <SPAN style="color:#00007F">Do</SPAN> <SPAN style="color:#00007F">While</SPAN> i <= n
            Cells(a, 1).Select
                j = Worksheets(i).Name
                ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=j & "!A1", _
                TextToDisplay:=j
            a = a + 1
            i = i + 1
        <SPAN style="color:#00007F">Loop</SPAN>
    
        .ScreenUpdating = <SPAN style="color:#00007F">True</SPAN>
        .DisplayAlerts = <SPAN style="color:#00007F">True</SPAN>
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>

<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

Hope that helps,

Smitty

Consider tushar mehta's Navigation solution for quick reference to worksheets. I have found it very, very helpful.

Navigation Tool