Populate Similar Value in ComboBox

[kayza]

Is there a more practical way to fill 2 or more different ComboBox with the same value.
so, I tried filling in ComboBox1, ComboBox2and ComboBox3 by adding items with standard codes like this

Private Sub UserForm_Activate ()
With ComboBox1
     .AddItem "one"
     .AddItem "two"
     .AddItem "three"
     .AddItem "four"
End with


With ComboBox2
     .AddItem "one"
     .AddItem "two"
     .AddItem "three"
     .AddItem "four"
End with


With ComboBox3
     .AddItem "one"
     .AddItem "two"
     .AddItem "three"
     .AddItem "four"
End with
End Sub

Is there a simpler code for the issues above
Thank you in advance

 

[dmt32]

Hi,
one way maybe

Private Sub UserForm_Activate()
    Dim i As Integer
    
    For i = 1 To 3
        Me.Controls("ComboBox" & i).List = Array("One", "Two", "Three", "Four")
    Next i


End Sub

Dave

 

[kayza]

Hi Dave.
Thanx a lot. Its working perfectly.