Add numbers to Combobox on load

[sharky12345]

Is there a more efficient way I can add numbers from 1 to 50 to a Userform Combobox rather than having to use '.AddItem' for each number?

 

[dmt32]

Is there a more efficient way I can add numbers from 1 to 50 to a Userform Combobox rather than having to use '.AddItem' for each number?

try

Private Sub UserForm_Initialize()
    Me.ComboBox1.List = Application.Transpose([=ROW(A1:A50)])
End Sub

Dave

 

[sharky12345]

Thanks Dave!

 

[snb_]

simpler:

Private Sub UserForm_Initialize()
    ComboBox1.List = [ROW(1:50)]
End Sub

see: http://www.snb-vba.eu/VBA_Fill_combobox_listbox_en.html#L_5