thanks you all.
here is what i ended up with. again i had found some code online and started with that before i saw anyones post here. I just replaced one line of code with a StrComp and it seems to work. thanks again. Took me a while to figure out why it was not working.......but learned something again. thanks.
For i = Items_Selected.ListCount - 1 To 0 Step -1
If Items_Selected.Selected(i) = True Then
If Items_to_Select.ListCount = 0 Then
'this is the first item
Items_to_Select.AddItem Items_Selected.List(i)
ElseIf Items_Selected.List(i) > Items_to_Select.List(Items_to_Select.ListCount - 1) Then
'new item goes at the end of the list
Items_to_Select.AddItem Items_Selected.List(i)
Else
'goes somewhere else
For Alpha = 0 To Items_to_Select.ListCount - 1
'*replaced this*'If Items_Selected.List(i) < Items_to_Select.List(Alpha) Then
If StrComp(Items_Selected.List(i), Items_to_Select.List(Alpha), vbTextCompare) = -1 Then
Items_to_Select.AddItem Items_Selected.List(i), Alpha
Exit For
End If
Next Alpha
End If
Items_Selected.RemoveItem i
End If
Next i
Bookmarks