Add Items To ComboBox

[jstevens]

I'm receiving an error message "Permissions Denied" when I use the following code to populate a "combobox". Any ideas as to why?

Code: Select all

Sub Add_Items_To_ComboBox_Array()
UserForm1.ComboBox1.SetFocus

For i = 1 To 7
    UserForm1.ComboBox1.AddItem Sheets("Sheet1").Range("K" & i).Value
Next i

End Sub

Thanks,
John

[HansV]

Where are you calling this code?

[jstevens]

Hans,

From:

Code: Select all

Private Sub CheckBox1_Click()
    UserForm1.ComboBox1.Visible = True
        Add_Items_To_ComboBox_Array
End Sub

Regards,
John

[HansV]

Hmm, I can't reproduce the error. Could you attach (a stripped down copy of) the workbook? Thanks in advance.

[jstevens]

Hans,

Please find attached a sample workbook as requested.

Regards,
John

[HansV]

The reason for the error is that you have set the RowSource property of the combo box. If the RowSource of a list box or combo box is not blank, you can't use the AddItem or RemoveItem methods.
So if you clear the RowSource property of the combo box, the code should work as intended.

[jstevens]

Hans,

Thank you.

John