Carrito: 
Hace algunos días un lector me preguntaba alguna forma de ordenar las hojas de un libro de Excel, pero que el órden no fuera por órden alfabético o numérico, sino que fuera determinado por el usuario.
Aquí una buena opción para hacerlo y les dejo el libro para que vean su funcionamiento.
Cualquier duda comentan.
'****************************** '
' Email: obed.cruz@exceltrabajaporti.com '
' www.exceltrabajaporti.com '
'****************************** '
Option Explicit
Sub SortWorksheets()
Dim A As Variant, i As Integer
A = Array("B", "A", "D", "F", "C")
Application.ScreenUpdating = False
For i = 0 To UBound(A)
On Error Resume Next
Worksheets(CStr(A(i))).Move before:=Worksheets(i + 1)
Next i
Application.ScreenUpdating = True
End Sub
