ordenar hojas de excel por nombre

Encontre este codigo de macro, que supuestamente, hace eso, pero no sé como
usarlo ¿Alguien podría indicarme como lo uso?
"El orden que este codigo establece, es alfabetico
no tiene necesariamente que corresponderse con
el Indice de la hoja dentro del libro"Gracias.

Sub OrdenarHojas()
Dim lngHojas As Long
Dim i As Long
Dim j As Long

lngHojas = ActiveWorkbook.Sheets.Count

For i = 1 To lngHojas
For j = i To lngHojas
If LCase(Sheets(j).Name) < LCase(Sheets(i).Name) Then
Sheets(j).Move Before:=Sheets(i)
End If
Next j
Next i
End Sub


"Darío" escribió en el mensaje
news:O%

Buenas,

¿Sabeis si hay alguna manera de ordenar las hojas de Excel por nombre?

Vereis, lo que yo hago es renombrar todas mis hojas de excel de la

siguiente

forma:

Hoja 1 -> 2345
Hoja 2 -> 0250
Hoja 3 -> 0500
Hoja 4 -> 1234

Y me gustaría poder ordenarlas de menor a mayor (o viceversa):

0250
0500
1234
2345

¿Alguien sabe si esto se puede hacer? ¿Podría hacerlo con mi Office 2000
Profesional?

Gracias y Saludos.