Macro para ordenar hojas de un libro manteniendo una fija

Tengo la siguiente macro que me ordena las hojas de un libro alfabéticamente pero me encuentro con el problema de que necesito que se ejecute la macroa a partir de una hoja que quiero que sea la primera y que ordene a partir de ella sin considerar el nombre de esta primera, adjunto la macro por si me podéis ayudar.

Sub ordenar_hojas

numhojas=Thiswoorkbook. Sheets.Count

For x =1 To numhojas

      For y=x to numhojas

            if ucase(sheets(y).name)<ucase(sheets(x).name) Then

                sheets(y).move before:=Sheets(x)

           End if

      Next

Next

Sheets(1). Select

End Sub