no hay ninguna instrucción predefinida para hacer esto, pero en http://www.exceltip.com/show_tip/Excel_Worksheet,_Workbook/Sorting_Sheets_in_Ascending_Order/669.html aparece este ejemplo, que te puede servir de guía para lo que necesitas: 

Sub SheetInABC_Order()

Dim i As Integer, j As Integer, x As Integer

x = Sheets.Count

On Error GoTo ErrorTrap:

For i = 1 To x - 1

    For j = i + 1 To x

        If Sheets(j).Name < Sheets(i).Name Then

            Sheets(j).Move before:=Sheets(i)

        End If

    Next

Next

Sheets(1).Select

ErrorTrap:

End Sub

sólo tendrías que añadir una condición para que no realice la reordenación cuando el nombre de la hoja sea "Menu", o para que comience a partir de la hoja número 2, ...