Private Sub Worksheet_Activate()
Cells(1, 1).Select
For Each n In Worksheets
Selection.Value = n.Name
Selection.Offset(1).Select
Next
Cells(1, 1).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Worksheets(Target.Value).Activate
End Sub
Jetzt möchte ich aber nicht, daß das Registerblatt - auf welchem die Übersicht steht - mit aufgelistet wird. Wie geht das?