title: Sort Combobox VBA
body: <p>I have been thinking how to sort the values in a combobox.</p>
  
  <p>I add items to the ComboBox when I initilize the form because the number of values are constantly increasing on a sheet.</p>
  
  <p>I use the next code to add the items:</p>
  
  <pre><code>With ComboBox1
  lastcell = ThisWorkbook.Sheets("1").Range("F1000000").End(xlUp).Row + 1
  For i = 2 To lastcell 
  .AddItem ThisWorkbook.Sheets("1").Cells(i, 6)
  Next i
  End With
  </code></pre>
  
  <p>I thought to copy the values that I am going to add on the ComoBox to another sheet and there sort them in the new sheet, it works fine but it doesn't seem to be a smart option, meaning that I create another sheet and then copy the values and sort them instead of sorting them directly.</p>
  
  <p>My question is, anyone knows how to do it directly from the original sheet? I dont know anything of API so, please, only VBA code. I alredy check on MSDN but I can't figure out how to make it work.</p>
  
  <p>Thanks and if more info is needed, please, let me know it.</p>
  
  <p>PS: I cant sort them directly from the original sheet because this Sheet has to be with a static order</p>