The code below builds an array of items from a register / log of entries, these are then added as selectable items in a dropdown combobox on worksheet. All works fine, but as the list is getting larger, it's getting more difficult to find the one we want, so I want to make the list alphabetical, the source data is arranged chronologically and must be kept that way, so that option is out, I need to find a way of sorting the data either in the array or in the combobox. Any ideas?
wb = Workbooks.Open(Filename:=sTemp )
sSections = ""
If Not myDict1 Is Nothing Then
Set myDict1 = CreateObject("Scripting.Dictionary")
For Each r In Range("A6:A1000")
If r.Value = "" Then
If Not myDict1.exists(r.Value & "-" & r.Offset(0, 1).Value) And r.Offset(0, 9).Value = "New" Then
myDict1.Add r.Value & "-" & r.Offset(0, 1).Value, i
i = i + 1
sSections = sSections & "|" & r.Value & "-" & r.Offset(0, 1).Text
MyArray1 = Split(sSections, "|")
Sheet1.ComboBox1.List = MyArray1