Listbox

[Damo10]

Hi,

I have several listboxes on a userform which are populated using .additem, how can i clear the contents from them without unloading the userform?

Regards

 

[VoG]

Try like this

Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To ListBox1.ListCount
    'Remove an item from the ListBox.
    ListBox1.RemoveItem 0
Next i
End Sub

 

[Damo10]

Thanks VoG

 

[doofusboy]

The following should work too:

ListBox1.Clear

 

[Norie]

This will clear all the postboxes in a userform.

For Each ctl In Me.Controls

       If TypeName(ctl) = "ListBox" Then
            ctl.Clear
       End If
Next ctl

 

[Damo10]

Thanks Norie, that works great

 

[Norie]

Apologies that should have been listboxes not postboxes.