Private Sub Workbook_Open()
Dim I As Byte
With Sheets("INDEX")
.Columns(6).Clear
For I = 1 To Sheets.Count
If Sheets(I).Name <> .Name Then
Sheets(I).Visible = False
.Hyperlinks.Add Anchor:=.Cells(I, 6), Address:="", SubAddress:="'" & Sheets(I).Name & "'!A1", _
TextToDisplay:=Sheets(I).Name
End If
Next I
End With
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim I As Byte
With Sheets("INDEX")
If .Name <> Sh.Name Then Exit Sub
.Columns(6).Clear
For I = 1 To Sheets.Count
If Sheets(I).Name <> .Name Then
Sheets(I).Visible = False
.Hyperlinks.Add Anchor:=.Cells(I, 6), Address:="", SubAddress:="'" & Sheets(I).Name & "'!A1", _
TextToDisplay:=Sheets(I).Name
End If
Next I
End With
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name <> "INDEX" Then Sh.Visible = False
End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
With Sheets(Target.Name)
.Visible = True
.Select
End With
End Sub