Jeg bruger denne kode til at lave indholdsfortegnelser i mine regneark, men kunne godt tænkte mig at den sorterede det i alfabestik rækkefølje. Er der nogle som kan hjælpe med det?

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim M As Long
M = 1
    With Me
        .Columns(1).ClearContents
        .Cells(1, 1) = "Indholdsfortegnelse"
        .Cells(1, 1).Name = "Indholdsfortegnelse"
    End With
    
    For Each wSheet In Worksheets
        If wSheet.Name <> Me.Name Then
        M = M + 1
        With wSheet
            .Range("A1").Name = "Start" & wSheet.Index
            .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:="Index", TextToDisplay:="Tilbage til indholdsfortegnelsen"
        End With
            Me.Hyperlinks.Add Anchor:=Me.Cells(M, 1), Address:="", SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name
        End If
        Next wSheet
End Sub