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