Hojas

Debe ordenarlas manualmente.. arrastrando la etiqueta de la hoja hasta la zona donde creas debe ir...

Hola que tal, hace dos o tres días alguien pregunto eso
mismo, y el compañero Cesar Zapata contes to lo siguiente:

*-*-*-*-*-*-*-*-*-*-*-*-*-*
Aqui te mando el codigo de Chip Pearson. Pon esto en el
VBE.


Sub SortWorksheets()

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

SortDescending = False

If ActiveWindow.SelectedSheets.Count = 1 Then
FirstWSToSort = 1
LastWSToSort = Worksheets.Count
Else
With ActiveWindow.SelectedSheets
For N = 2 To .Count
If .Item(N - 1).Index <> .Item(N).Index - 1
Then
MsgBox "You cannot sort non-adjacent
sheets"
Exit Sub
End If
Next N
FirstWSToSort = .Item(1).Index
LastWSToSort = .Item(.Count).Index
End With
End If

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

*-*-*-*-*-*-*-*--*-*-*-*-*-*-*-*-*-*-*-
Espero que te ayude, SUERTE!!!!! :)

Tengo una pregunta que me ha rondado la cabeza bastante

tiempo,

tengo varias hojas creadas ej. Alex, Heidi, John, Carlos,

Maribel, etc.

quiero que estas hojas me salgan ordenadas

alfabeticamente, esto se puede?,

cómo se debe hacer? (es que desde un principio no las cree

ordenadamente, y

ahora tengo mas de 20 hojas que debo ordenar.

Mil gracias


.