One way:

Option Explicit
Private Sub Workbook_Open()
Dim wks As Worksheet

Set wks = Me.Worksheets("mySheet")

With wks.OLEObjects("myCombo").Object
.Clear
.AddItem "item one"
.AddItem "item 2"
.AddItem "3"
End With
End Sub



Paul Kraemer wrote:

Hi,

I am using Excel 2007. I want to run some code in my Workbook_Open() Sub
that fills a combo box on one of my Worksheets (I will call it myCombo on
mySheet). I tried the following code and it did not work:

myCombo.Clear
myCombo.AddItem "Item One"
myCombo.AddItem "Item Two"
myCombo.AddItem "Item Three"

I assume that the problem is that within the Workbook_Open() Sub, the
reference to myCombo is not valid. Can anyone tell me if/how I can get a
valid reference to myCombo (on mySheet)?

Thanks in advance,
Paul Kraemer

--
Paul Kraemer

--

Dave Peterson