Sort an Array of items by Alpha

or:

Sub snbubble()
  With ComboBox1
    .List = Sheets(1).Cells(1).Resize(17).Value
    
    For j = 0 To UBound(.List) - 1
      For jj = j + 1 To UBound(.List)
        If .List(j) > .List(jj) Then
          c01 = .List(j)
          .List(j) = .List(jj)
          .List(jj) = c01
        End If
      Next
    Next
  End With
End Sub

Ok, I gave both ways a try,

@ snb, I was not able to get your codes to work in my situation again I ran into the same problems I did with my sort script. I'm sure it's my fault as I just dont understand what it going on. As you say avoid code you dont understand... just my luck I guess. But thank you for your time...

@ Dom, I was able to get your option to work, Seems to work better anyway rather than to use an array of items. as I can sort then place the list right away.
Thank You for your time...

Mike,

@RNG

I can't believe you did anything wrong
Please do what you would ask any OP: post your example workbook.

cfr. the attachment

Mike,

Here's a 'black box' approach with an example. It does a simple insertion sort.

Sub x()
    With UserForm1
        .Show vbModeless
        .ListBox1.List = Range("A1:A10").Value
        SortTheBox .ListBox1
    End With
End Sub

Function SortTheBox(vCtl As Variant) As Boolean
    Dim i         As Long
    Dim j         As Long

    If Not IsObject(vCtl) Then Exit Function

    Select Case TypeName(vCtl)
        Case "ComboBox", "ListBox"
            With vCtl
                For i = 1 To .ListCount - 1
                    For j = 0 To i - 1
                        If .List(i) < .List(j) Then
                            .AddItem .List(i), j
                            .RemoveItem i + 1
                            Exit For
                        End If
                    Next j
                Next i
            End With

            SortTheBox = True
    End Select
End Function

Thanks Shg...Nice Approach...

@ SNB....Thanks for the lesson.
I never said your code didn't work in fact you must be a master at taking 100 line scripts and making them 10 or less... lol I just dont understand your logic at times, which makes them harder for me to re-code if needed.
Maybe one day...

Thank You, Mike