Uncooperative list box

Community,

I have a listbox named (lstTALLEYWHSE) that doesn't want to behave correctly. The control is populated from a range on a worksheet linked to the rowsource property. The list has duplicate values in the first column on nearly every occasion. When the user makes a selection in the listbox, the first column value in the listbox populates to a cell on a worksheet to be used as a look up variable for a formula. The listbox selection also populates a "Label4".

Callout No.

JM801000284C1 CEQ.31963 Purcell,2000001397,,DISCONTINUED USE,CEQ.14176,14in Plinth A… 1.0 Yes On Release On Pick 1.0 06/15/2015 - 122076.8015.150615.LA0738.3551015684
JM801000284C1 CEQ.32407 Raycap Inc.,DC12-48-60-RM,,,,Pluggable; upgradable,rack-moun… 1.0 Yes On Release On Pick 1.0 06/15/2015 - 122076.8015.150615.LA0738.3551015684
JM801000284C1 CEQ.11612 Ericsson,UCRRUS11B12-48,,,,RRUS11 B12 700; 5MHz BW;,2x30W,-4… 1.0 Yes On Release On Pick 1.0 06/15/2015 - 122076.8015.150615.LA0738.3551015684
JM801000284C1 CEQ.13160 Ericsson,UC6601ODDUS41A,,,,RBS6601 Outdoor DUS41; SAU;,GPS,,… 1.0 Yes On Release On Pick 1.0 06/15/2015 - 122076.8015.150615.LA0738.3551015684

I have the following code in the lstTALLEYWHSE Change Event:

Private Sub lstTALLEYWHSE_change()
Worksheets("CONTROLS").Range("B50").Value = lstTALLEYWHSE.Value
Label4 = Range("C50")
End Sub

What's happening is that when the user clicks one of the list items on the form in the listbox; and if column 1 contains duplicates, the highlighted cursor selection in the listbox "jumps" to the very first occurrence of the duplicate instead of remaining on the selected item by the user.

Any ideas?

Thank you in advance!

pt

Nothing else is referencing the listbox listTALLEYWHSE. This listbox is on a form named frmOrderDetailsshow and this form opens up from a double click event off of another listbox in a separate userform. The code to call up the frmOrderDetailsshow form is below:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    
'Creating this sub to double click on a value in frmEEReportOrders list box and have more detail displayed in another user form that shows release information, inventory status, AMF's
'and possible subs and possible notes.

Dim Response As VbMsgBoxResult

If Worksheets("CONTROLS").Range("A50").Value = "Do Not Allow" Then
MsgBox "No Order Details to Display.  Order is not in Market.  Do you wish to view Opportunities only?.", vbYesNo + vbInformation, "Not In Market"

Else
    Response = MsgBox("This detail will only provide insight to what has been DELIVERED to market for the year selected." & vbNewLine & vbNewLine & "View All Order Activity for " _
    & Frame1.Caption & " from " & Worksheets("Command").Range("c24").Value & " ?", vbYesNo + vbQuestion, "Confirm Request")
    If Response = vbNo Then Exit Sub
    frmOrderDetails.Show
    
End If
    
End Sub

I'm stumped. The workbook is too large to upload. If you have any possible workarounds or suggestions I can play with, I'll give it a go and let you know the results.

Best,

pt

Solved it. Thank you All.