Here at Experts Exchange, we strive to give members the best experience. Help us improve the site by taking this survey today! (Bonus: Be entered to win a great tech prize for participating!)
'===================================================================================== Dim i As Long Dim j As Long Dim sTemp As String Dim sTemp2 As String Dim sTemp3 As String Dim sTemp4 As String Dim sTemp5 As String Dim sTemp6 As String Dim LbList As Variant ' LbList = Me.ListBox1.List For i = LBound(LbList, 1) To UBound(LbList, 1) For j = i + 1 To UBound(LbList, 1) If LbList(i, 1) > LbList(j, 1) Then sTemp = LbList(i, 0) LbList(i, 0) = LbList(j, 0) LbList(j, 0) = sTemp sTemp2 = LbList(i, 1) LbList(i, 1) = LbList(j, 1) LbList(j, 1) = sTemp2 End If Next j Next i
Join the community of 500,000 technology professionals and ask your questions.