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