ComboBox - Populate Using .AddItem

[vthokienj]

I am trying to create then populate combobox with values from a collection. Seems simple enough but keeps it keeps crashing when I try to do anything like .clear or .additem. What am I doing wrong here? Thanks.

' create the box
Sheets("thesheet").Cells(1, 2).Select
       ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1",    
       Link:=False, DisplayAsIcon:=False).Select

' rename and populate
       With Selection
           comboName = "comboname"
           .name = comboName
           .AddItem "theitem"
       End With

 

[bstory84]

try this. add ".Object"

Sheets("thesheet").Cells(1, 2).Select
       ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1").Select
 
       With Selection
                                  'comboname = "comboname" 
           .Name = "comboname"
           [U].Object.[/U]AddItem "theitem"
       End With

 

[bstory84]

SOLVED.

Original Poster, PM'd me and stated problem solved via posted solution.