Private Sub Worksheet_Activate()
[C5:C100].ClearContents
For i = 2 To Sheets.Count
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 6, 3), Address:="", SubAddress:="'" & _
nf & "'" & "!A1", TextToDisplay:=nf
Cells(i + 6, 4) = i
Next i
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then
nf = Target
On Error Resume Next
Sheets(nf).Visible = True
End If
End Sub