Loop through each combo box on userform

[Av8tordude]

I have 11 combo boxes (various names) on a userform. how can i create a vba code that will return each of the combo boxes back to index 0?

Thank you kindly for helping

 

[mikerickson]

Dim oneBox as MsForms.Control

For each oneBox in Userform1.Controls
    If Typename(oneBox) = "ComboBox" Then
        oneBox.ListIndex = 0
    End If
Next oneBox

 

[Av8tordude]

Thank you Mikerickson. Its nice to see a familiar face still helping. You are greatly appreciated and an Oak

 

[Av8tordude]

On more request, how can exclude one of the combo boxes named cbName?

 

[Av8tordude]

any change of a solution. Thanks you kindly

 

[Av8tordude]

Figure it out....

Dim oneBox As MsForms.Control

For Each oneBox In frmData.Controls
    If TypeName(oneBox) = "ComboBox" Then
        If oneBox <> cbName Then
            oneBox.ListIndex = 0
        End If
    End If
Next oneBox

 

[mikerickson]

Try

Dim oneBox As MsForms.Control

For Each oneBox In frmData.Controls
    If TypeName(oneBox) = "ComboBox" And oneBox.Name <> "ComboBox1" Then
        If oneBox <> cbName Then
            oneBox.ListIndex = 0
        End If
    End If
Next oneBox