Indice de hojas

Hola, tengo un indice para listar las hojas del libro, pero si tiene muchas hojas no las ordena por horde alfabético y no se el motivo. El otro punto es que me gustaría si es posible

ejemplo A1 de la A a la C B1 todas las que comiencen por 0 Etc.

el código que tengo es el siguiente

Sub lista_hojas() On Error Resume Next For Each hoja In Sheets For x = 2 To Sheets.Count If UCase(Sheets(x).Name) > UCase(Sheets(x + 1).Name) Then Sheets(x + 1).Move Before:=Sheets(x) End If Next Next Sheets("menu").Select Range("a2").Select For m = 2 To Sheets.Count ActiveSheet.Hyperlinks.Add anchor:=ActiveCell, Address:="", SubAddress:=Sheets(m).Name & "!a1", TextToDisplay:=Sheets(m).Name ActiveCell.Offset(1, 0).Select If ActiveCell.Row = 30 Then Cells(1, ActiveCell.Column + 1).Select End If Next End Sub