How to only allow 1 listbox selection at a time?

[danbates]

Hi,

I have 2 listboxes (ListBox1 and ListBox2).

When I select something in listbox1, listbox2 deselects and vice versa.

I have tried these in listbox1 and listbox2 change and click events:

ListBox1.Selected(ListBox1.ListIndex) = False

and

ListBox2.Selected(ListBox2.ListIndex) = False

They work for the first selection but if I select in the same listbox twice it triggers the following error:

Run time error 380 - Could not set the selected property. Invalid property value.

Does anyone know a way around this error?

Also I should mention I have a code in userform activate that highlights a value and that value can be in either listboxes but never both.

Any help would be appreciated.

Thanks

Dan

 

[mikerickson]

You could use code like this

Private Sub ListBox1_Change()
    If ListBox1.ListIndex <> -1 Then
        ListBox2.ListIndex = -1
    End If
    
    ' your existing code
End Sub

Private Sub ListBox2_Change()
    If ListBox2.ListIndex <> -1 Then
        ListBox1.ListIndex = -1
    End If

    ' your current code
End Sub

 

[danbates]

Hi,

Just wat I was after, Thank you.