Unselect Listbox value if user selects NO to Msgbox

[ipbr21054]

I am using the code below.

I make a selection from my ComboBox which then populates the Listbox.
Normally when i then make a Listbox select i would say YES to the Msgbox that has just popped up.

Occioanly the user would be selecting NO of which the closes the Msgbox.
Now at this point the Listbox selection is still in a select state / blue in color,see screenshot

Please advise what code i need to add so when the MsgBox is closed the Listbox value isnt selected.
I did try this but nothing happed,so i assume its wrong

ListBox1.Selected(ListBox1.ListIndex) = False

Thanks

Private Sub ListBox1_Click()
    Dim rw          As Long
    Dim answer      As VbMsgBoxResult
   
    With Me.ListBox1
        'get database row number
        rw = Val(.Column(.ColumnCount - 1, .ListIndex))
        If rw = 0 Then Exit Sub
    End With
   
    With wsDatabase
        .Activate
        .Range("A" & rw).Select
    End With
   
    answer = MsgBox("OPEN CUSTOMERS FILE IN MAIN DATABASE ?", vbYesNo + vbInformation, "OPEN Database MESSAGE")
    If answer = vbYes Then
      Unload ProgrammerForm
      Database.LoadData Sheets("DATABASE"), Selection.Row
       
    Else
   
   
    End If
   
End Sub

 

[DanteAmor]

If you don't mind switching from the Click event to the doubleclick event, use the following code and delete your code.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim rw          As Long
    Dim answer      As VbMsgBoxResult
    
    With Me.ListBox1
        'get database row number
        rw = Val(.Column(.ColumnCount - 1, .ListIndex))
        If rw = 0 Then Exit Sub
    End With
    
    With wsDatabase
        .Activate
        .Range("A" & rw).Select
    End With
    
    answer = MsgBox("OPEN CUSTOMERS FILE IN MAIN DATABASE ?", vbYesNo + vbInformation, "OPEN Database MESSAGE")
    If answer = vbYes Then
        Unload ProgrammerForm
        Database.LoadData Sheets("DATABASE"), Selection.Row
    Else
        ListBox1.Selected(ListBox1.ListIndex) = False
    End If
End Sub

 

[ipbr21054]

Thanks will give it a try tomorrow.

Would you mind taking a look at my other post.

Have a nice day.

 

[ipbr21054]

Hi,
I added this line of code to mine & it works even without using the double click.

ListBox1.Selected(ListBox1.ListIndex) = False