Ordenar Hojas del libor.

Hola NOE´S,

Prueba el siguiente codigo.

Saludos,
KL

'Inicio Codigo-
Sub OrdenarHojas()
Dim Ant As Integer
Dim Desp As Integer
For Desp = 1 To Worksheets.Count
For Ant = Desp To Worksheets.Count
If UCase(Worksheets(Ant).Name) < _
UCase(Worksheets(Desp).Name) Then _
Worksheets(Ant).Move Before:=Worksheets(Desp)
Next
Next
Worksheets(1).Activate
End Sub
'Fin Codigo-


"NOE´S" wrote in message
news:256901c512ce$643f4c40$

Hola._
Con una consulta se puede ordenar las hojas de un
libro por orden alfabetico, por fecha o por numero, si se
puede favor de ayudarme en esto y tambien para que al
ponerle ejemplo a la primera hoja " A " la siguiente sea
" B " , " C ", etc, o sea correlativamente, o hay alguna
manera de que esto se haga por una macro o algo asi, de
antemano gracias por su ayuda y apoyo.