List Box Woes

[AlexanderBB]

It appears with MultiSelect=2 that the list box click event does not fire.
So I tried the Mouse Up event but Debug.Print ListBox2.Value there prints Null

Is there any way to get the list box value in this situation?

Thanks

 

[AlexanderBB]

Hmm the plot thickens. Under some circumstances

ClearBox ListBox1

Fails because ListBox1 is null. So if I pass in the name to the function, can I use the name rather than Controls(x) as I was doing?

 

[mikerickson]

I can't imagine circumstances when you would try to clear a nonexistent listbox.

Some where in you change of statements, you'll have to test to see if the object you want to change (ListBox1) does exist. That checking can be done either before calling the clearing sub.

Dim ABox as MsForms.ListBox
' some code
If SomeCondition Then Set aBox = ListBox1
' more code

If Not aBox is Nothing then
    ClearBox aBox
End If

or as part of the Clearing Sub.

Sub ClearBox(aListBox as msForms.ListBox)
    If Not aListBox is Nothing then
        ' code
    End If
End Sub

 

[AlexanderBB]

There's 3 listboxes and they all exist. But some may have nothing selected.
I don't know that so I unselect the two not currently in Mouse Up event..
For some reason Mike it only works with the code sending in the Listbox name.
Your last initially worked then "Could not set the Selected property. Unspecified error."

 

[mikerickson]

That sounds like the code is being run when ListCount = 0

Perhaps

Sub UnSelectAll(aListBox as MsForms.ListBox)
    Dim i as Long
    With aListBox
        If 0< .ListCount Then
            For i = 0 to .ListCount - 1
                .Selected(i) = False
            Next i
        End If
    End With
End Sub

 

[AlexanderBB]

Is it possible to upload a small 83KB xls file here?
Or can I post a dropbox link ?

I have this List box issue almost sorted but under one condition it fails.
I think Mike or others here may see what's wrong more easily than me trying to describe the
problem.

Thanks, Alex