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

Excelente, funciona perfecto.
Muchas Gracias KL, de nuevo, buenísimo grupo
salu2


KL wrote:

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
>