Ordenar alfabeticamente en listbox

[waquiro]

Cordial saludo.

Por favor  aquien me pueda ayudar le agradezco enormemente .

Tengo el siguiente codigo para cargar  los nombres de ciertas hojas de un libro  en un listbox, lo que requiero hacer es que me carguen en orden alfabetico.

Private Sub UserForm_Initialize()

ListBox1.Clear

Me.ListBox1.ListStyle = fmListStyleOption

For x = 5 To Sheets.Count
     ListBox1.AddItem Sheets(x).Name
  Next
   End Sub

Mil gracias.

[JSDJSD]

Sube tu archivo

 

[Antoni]

Es conveniente, tal como comenta JSDJSD, subir un archivo para poder probar las posibles soluciones.

Inténtalo con esta macro.

Private Sub UserForm_Initialize()
ListBox1.ListStyle = fmListStyleOption
For x = 5 To Sheets.Count
   Range("ZZ" & x - 4) = Sheets(x).Name
Next
Columns("ZZ").Sort Key1:=Columns("ZZ")
ListBox1.List = Range("ZZ1:ZZ" & x - 5).Value
Columns("ZZ").Clear
End Sub

 

[waquiro]

Muchas gracias ...

Justo lo que necesitaba.

Nota: Tendre en cuenta la observación de subir el archivo para futuras consultas.

Bendiciones