Hi,

Will this help?

your code ..... then add ...

ReDim myarray(1 To myval.Count)

For i = 1 To myval.Count
myarray(i) = myval(i)
Next i

BubbleSort myarray
ComboBox1.List = myarray


Sub BubbleSort(List() As Variant)
' Sorts the List array in ascending order
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp

First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i) > List(j) Then
Temp = List(j)
List(j) = List(i)
List(i) = Temp
End If
Next j
Next i
End Sub


"Kryer" wrote:

> Private Sub UserForm_Initialize()
> Dim sh As Worksheet
> Dim rng As Range
> Dim myval As Range
> Dim myarray() As Variant
>
> Range("C1").Select
> Do Until ActiveCell = "GS"
> Selection.End(xlDown).Select
> Loop
> Selection.Offset(1, 0).Select
>
>
> Set sh = Workbooks("Book1.xls").Worksheets("Sheet1")
> Set myval = Range(Selection, Selection.End(xlDown).Offset(1, 0))
> Set rng = myval
> myarray = rng
> ComboBox1.List = myarray
> End Sub
>
> I am trying to figure out how to make this selection post a sorted ascending
> list in the combobox on initialize. the combobox range varies in as many
> listings as in names available. This could list from 100 - 200 names on any
> given day and having to run thru this list unorganized is a nitemare. Any help