Autopopulate Combobox when spreadsheet opens

[ggilzow]

The code works only if I click the run bottom. However, I would like to have the code run automatically and populate the combobox on its own. What am I missing?

Private Sub Userform_Activate()
With ComboBox1  'this loads the combo
    .AddItem "N/A"
    .AddItem "KCl"
    .AddItem "NaCl"
    .AddItem "CaCl2"
    .Text = ComboBox1.List(0)
End With
End Sub
Private Sub ComboBox1_Change() 'this writes the selected value to the worksheet
Range("A3") = ComboBox1.Value
End Sub

 

[Trevor G]

Try something like this behind the userform on activate

Worksheets("Sheet Name").Activate
range("Cell ID").Select
Do until activecell.value=""
me.cboName.AddItem activecell.value
activecell.offset(1,0).select
Loop

 

[ggilzow]

Try something like this behind the userform on activate

Didn't work. I received a compile error on ".cboName"

What can be changed to make the combobox to populate when the worksheet opens?

 

[ggilzow]

I figured it out. Thanks.