Sub Worksheet_Activate()
On Error GoTo FinActive
Application.EnableEvents = False
[A2:A100].ClearContents: L = 2
For Each F In Worksheets
If F.Name <> "index" Then Cells(L, "A") = F.Name: L = L + 1
Next F
Columns.AutoFit
FinActive:
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [A1:A100]) Is Nothing And Target <> "" Then NomF = Target: Sheets(NomF).Select
Fin:
End Sub