Übersicht Tabellenblätter

Private Sub Worksheet_Activate()
Cells(1, 1).Select
For Each n In Worksheets
If n.Name <> ActiveSheet.Name And n.Name <> "Vorlage" Then
Selection.Value = n.Name
Selection.Offset(1).Select

End If
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