Refer to all ComboBoxes on a form

[craig.penny]

Hi all,

I have a userform with several ComboBoxes. When I click a Command Button, I'd like to clear them all out.

This is the code that goes with the Command Button:

Private Sub ClearCmndB_Click()
Dim CB As ComboBox
For Each CB In Me.ComboBoxes
      CB.Clear
Next CB
End Sub

As you can guess this doesn't work...

I've tried the variations that I can think of but I'd bet I'm missing the bigger picture on this.

Can someone give me an example of how to loop through all the ComboBoxes on the form?

Thanks in advance!!!

 

[mikerickson]

Try

Dim oneControl as Object

For each oneControl in Me.Controls
    If TypeName(oneControl) = "ComboBox" then
        oneControl.Clear
    End If
Next oneControl

 

[craig.penny]

Ah, mikerickson, you are a scholar, gentleman and, I suspect, ninja.

Thank You!!!