Ordenar hojas

Hola Andres,

Prueba el siguiente codigo.

Saludos,
KL


Sub Test()
Dim Desp As Integer
Dim Ant 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
End Sub


"Andres H" wrote in message
news:

Saludos,

Como puedo ordenar las hojas de un libro por su nombre alfabéticamente,
hay alguna instrucción para ello en VBA?

Gracias de antemano, excelente grupo
Andrés