como organizar alfabeticamente las hojas de excel

Que tal Deyle:
Aqui te anoto el codigo que ordena las hojas alfabeticamente, si tienes duda
de su uso, donde lo debes de pegar o donde lo debes de poner.. nos
comentas..
saludos

Sub OrdenarHojas()
Dim wksH As Worksheet
Dim mtrHojas() As String
Dim intBucle As Integer
Dim blnOrdenado As Boolean
Dim strCambio As String

ReDim mtrHojas(1 To ThisWorkbook.Worksheets.Count)

For Each wksH In ThisWorkbook.Worksheets
mtrHojas(wksH.Index) = wksH.Name
Next

Do
blnOrdenado = True

For intBucle = 1 To UBound(mtrHojas) - 1

If mtrHojas(intBucle) > mtrHojas(intBucle + 1) Then
strCambio = mtrHojas(intBucle)
mtrHojas(intBucle) = mtrHojas(intBucle + 1)
mtrHojas(intBucle + 1) = strCambio
blnOrdenado = False
Exit For
End If

Next intBucle

If blnOrdenado Then Exit Do
Loop

Application.ScreenUpdating = False
For intBucle = UBound(mtrHojas) To LBound(mtrHojas) Step -1
Sheets(mtrHojas(intBucle)).Move before:=Sheets(1)
Next intBucle
Application.ScreenUpdating = True

Set wksH = Nothing
End Sub

Jesús Peralta
Hermosillo, Sonora, Mexico
el_ultimo_profeta"alt+64"hotmail.com

"deyle" escribió en el mensaje
news:

necesito organizar alfabeticamente un grupo de hojas de excel pero para
realizarlo manualmente me voy a tardar mucho por lo cual queria preguntar
haber si alguien me pudiera ayudar o si es q se puede hacer de alguna

forma

mas facil