Ordenar hojas en un libro.

Descripción

Si el número de pestañas de su libro se acerca a varias docenas, tarde o temprano querrá ordenar las hojas del libro colocándolas en orden alfabético. Las herramientas estándar Excel no le permiten hacer esto, así que escribamos una macro simple que lo haga.

VBA código para la macro

Abra el menú Servicio - Macro - Editor Visual Basic (Tools - Macro - Visual Basic Editor), inserte el módulo VBA (menú Insert - Module ) y copiar ir allí este texto:

Sub SortSheets()
  'moonexcel.com.ua
  Dim I As Integer, J As Integer

    For I = 1 To Sheets.Count - 1
        For J = I + 1 To Sheets.Count
            If UCase(Sheets(I).Name) > UCase(Sheets(J).Name) Then
                Sheets(J).Move Before:=Sheets(I)
            End If
        Next J
    Next I
    
    MsgBox "Las pestañas se ordenaron de la A a la Z."
End Sub

Esta macro ahora se puede ejecutar a través del menú Servicio - Macro - Macros (Tools - Macro - Macros) y ordenará rápidamente todas las hojas de trabajo en el libro actual.

Artículos sobre el tema: