Ordenar datos en un combo

Buen día,

Les pido de la manera mas atenta me apoyen al respecto.

Requiero que los datos que aparescan en un ComboBox sean ordenados sin
alterar la base de datos.

De antemano, gracias.
Un saludo.
Jorge


ha escrito:

> Buen día,
>
> Tengo un combo al cual se le agregan los datos de una columna y
> funciona perfectamente.
>
> Ahora, me gustaría que los datos aparecieran ordenados... se puede ?
> Anexo código que utilizo.
>
>
> Dim Celda As Range, Listado As New Collection, Sig As Integer
> Dim Origen As Object
> Set Origen = Worksheets("INTERF").Cells(1, 7).Resize _
> (Worksheets("INTERF").Cells(1, 7).CurrentRegion.Rows.Count -
> 1).Offset(1, 0)
> For Each Celda In Origen.SpecialCells(xlCellTypeVisible)
> On Error Resume Next
> Listado.Add Celda, CStr(Celda)
> Next
> UserForm2.ComboBox1.Clear
> For Sig = 1 To Listado.Count
> Listado.Item (Sig)
> UserForm2.ComboBox1.AddItem Listado.Item(Sig)
> Next
>
>
> De antemano, gracias.
> Un saludo.
> Jorge