We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
'===================================================================================== 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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.