Private Sub Worksheet_Activate()
[A2:A200].ClearContents
For i = 2 To Sheets.Count
If Sheets(i).Visible = -1 Then
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 2, 1), Address:="", SubAddress:="'" & _
nf & "'" & "!A1", TextToDisplay:=nf
End If
Next
[A2:A200].Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
End Sub