Ordenar Hojas con Macro Excel

Como los nombres son 'textos' Hoja19 es menor a Hoja2 sin duda.

Se me ocurre que al momento de crear las hojas las renombres cuando los números son de 1 dígito ... para que todas tengan 2 dígitos y puedas ordenarlas como Hoja01 ... Hoja09, Hoja10... etc.

Sheets. Add
If Len(ActiveSheet.Name) = 5 Then ActiveSheet.Name = "Hoja0" & Right(ActiveSheet.Name, 1)

Sdos y no olvides valorar las respuestas.

Simplemente corrige la macro que la genera nombrándolas como Hoja01, Hoja02... Hoja09, Hoja10... etc.

Así luego quedarán ordenadas

[Hola 

revisa este vídeo 

https://www.youtube.com/watch?v=mihVMlKrXbM

Sub OrdenarHojas()

For i = 1 To Application.Sheets.Count

    For j = 1 To Application.Sheets.Count - 1

         If UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then

                Sheets(j).Move after:=Sheets(j + 1)       

        End If

    Next

Next

End Sub