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