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.

Descargar xls.

 

'******************************              '
' 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