Private Sub Worksheet_Activate()
Range("a13").Select
Range(ActiveCell, [a65000].End(xlUp)).ClearContents
For i = 2 To Sheets.Count
nf = Sheets(i).Name
If Sheets(i).Visible = -1 Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & _
nf & "'" & "!A1", TextToDisplay:=nf
ActiveCell.Offset(1, 0).Select
End If
Next i
End Sub