Populate several comboboxes with same value

[ipbr21054]

Hi,

Userform with 4 comboboxes.
I dont wish to type the same thing 4 times so im trying to make things easier.
Having said that my attempt keeps saying compile error.
It could be that its just wrong or a mistake spotted ?

Please advise thanks

Private Sub UserForm_Initialize()
Dim ctrl As Control
     For Each ctrl In Me.Controls
       If TypeName(ctrl) = "Combobox" Then
           LoadComboBox ctrl.Name
       End If
    Next
    ComboBox1.AddItem "A"
    ComboBox1.AddItem "B"
    ComboBox1.AddItem "C"
    ComboBox1.AddItem "D"
End Sub

 

[dmt32]

assuming your comboboxes have their default names then one way maybe

Private Sub UserForm_Initialize()
    Dim i As Long
     For i = 1 To 4
       Me.Controls("Combobox" & i).List = Array("A", "B", "C", "D")
    Next i
End Sub

Dave

 

[ipbr21054]

Perfect thanks