Ordenar alfabéticamente las hojas de un libro de Excel

A menudo solemos crear multitud de hojas (pestañas) dentro de nuestro libro de trabajo para ordenar nuestro trabajo, etiquetándolas con diversos nombres según nos convenga.  Sería muy interesante poder tener todas nuestras hojas ordenadas alfabéticamente para poder acceder a ellas de una forma más rápida y ordenada.  Con esta macro lo podemos conseguir:

Sub ordena_hojas()
On Error Resume Next
For Each hoja In Sheets
For x = 1 To Sheets.Count
If UCase(Sheets(x).Name) > UCase(Sheets(x + 1).Name) Then
Sheets(x + 1).Move before:=Sheets(x)
End If
Next
Next
End Sub

Luis Miércoles 16 Mayo 2012 - 10:15 am | | Microsoft Office y ofimática, · Microsoft Excel
Etiquetas utilizadas: , , , ,

Un comentario

Ignacio

Muy buna macro Graciass!

Ignacio, - 14-03-’14 19:00
(optional field)
(optional field)

La moderación de comentarios está activa en este sitio web. Esto significa que sus comentarios no serán visibles en la página hasta que hayan sido aprobados por un editor.

¿Recordar información personal?
Letra pequeña: Todas las etiquetas html excepto <b> e <i> serán eliminadas de su comentario. Puede introducir enlaces simplemente escribiendo la url o direcciones de e-mail.