Ordenar hojas

[FRANCESC]

Hola a todos,

Alguien me puede constar a esto:

-Se puede ordenar alfabeticamente los nombre de las hojas de un libro?
-Es posible que al imprimir me salgan las hojas por orde alfabetico?

Gracias

Francesc

[Fernando Gomez]

Encontre este macro, me parece en sl Website de Microsoft y es precisamente
para eso lo unico que es en Ingles, espero te trabaje:
Sub SortWorksheets()

Dim N As Integer
Dim M As Integer
Dim FirstWSToSort As Integer
Dim LastWSToSort As Integer
Dim SortDescending As Boolean

SortDescending = False
FirstWSToSort = 1
LastWSToSort = Worksheets.Count

For M = FirstWSToSort To LastWSToSort
For N = M To LastWSToSort
If SortDescending = True Then
If UCase(Worksheets(N).Name) > _
UCase(Worksheets(M).Name) Then
Worksheets(N).Move Before:=Worksheets(M)
End If
Else
If UCase(Worksheets(N).Name) < _
UCase(Worksheets(M).Name) Then
Worksheets(N).Move Before:=Worksheets(M)
End If
End If
Next N
Next M
End Sub

Ahora con tu segunda pregunta lo que puedes hacer es presionas Shift, clicas
en la primera pestaña de libro y luego clicas en la ultima y todas las hojas
se van a resaltar, entonces cuando le das el comando de imprimir imrprimira
todas las hojas en el orden en que estan.

Espero te sirva

Fernando

"FRANCESC" <adminis...@el-raco.com> wrote in message
news:O8K9iDw5BHA.1864@tkmsftngp04...

[Daniel Sánchez López]

Hola, Francesc!!
Checa tu correo, es un ejemplo que me envio la amiga Jorgelina E. Bernasconi
Un saludo

"FRANCESC" <adminis...@el-raco.com> escribió en el mensaje
news:O8K9iDw5BHA.1864@tkmsftngp04...