VBA bypass ListBox (or other control object) to sub

[gifariz]

Hi all. How to bypass a control object (e.g. ListBox) to another sub/function?

For example, what I try here below gives Type Mismatch error when bypassing ListBox1 to SetSelectedListBox sub.

'Select All ListBox1
Private Sub CommandButton3_Click()
    SetSelectedListBox ListBox1, True
End Sub

'Clear All ListBox2
Private Sub CommandButton4_Click()
    SetSelectedListBox ListBox1, False
End Sub

'Select All ListBox2
Private Sub CommandButton5_Click()
    SetSelectedListBox ListBox2, True
End Sub

'Clear All ListBox2
Private Sub CommandButton6_Click()
    SetSelectedListBox ListBox2, False
End Sub

Private Sub SetSelectedListBox(inListBox As ListBox, IsSelected As Boolean)
    Dim i As Long
    For i = 0 To inListBox.ListCount - 1
        inListBox.Selected(i) = IsSelected
    Next i
End Sub

TIA

 

[Jaafar Tribak]

If not fully qualified, ListBox refers by default to Excel Forms ListBoxes not ActiveX listboxes.

This should work:
SetSelectedListBox(inListBox As MsForms.ListBox, IsSelected As Boolean)

ALternatively, you could use inListBox As Object or As Variant

 

[gifariz]

If not fully qualified, ListBox refers by default to Excel Forms ListBoxes not ActiveX listboxes.

This should work:
SetSelectedListBox(inListBox As MsForms.ListBox, IsSelected As Boolean)

ALternatively, you could use inListBox As Object or As Variant

Thanks a lot for your solution and explanation. I understand now.
I will use the MsForms.ListBox option for clarity and early binding.