Hi
Right click the worksheet where you want to have the toc and select
"View Code".
In the VB Screen add the following macro.
Sub Worksheet_Activate()
Dim wSheet As Worksheet
l = 1
With Me
.Columns(1).Clear
.Cells(1, 1) = "INDEX"
End With
For Each wSheet In Worksheets
If wSheet.Name <> Me.Name Then
l = l + 1
t$ = "'" & wSheet.Name & "'!A1"
x$ = wSheet.Name
ActiveSheet.Hyperlinks.Add Anchor:=Me.Cells(l, 1),
Address:="", SubAddress:=t$, TextToDisplay:=x$
End If
Next wSheet
End Sub
Now close the VBA Screen. Go to some other worksheet and return to the
sheet where you entered the above code. You will have a toc with
hyperlinks
