combo box setup

M

Marcia

I'm hoping I'm close but just missing something simple. I added a combo box
to an Excel spreadsheet using Control Toolbox instead of Forms. Whatever
the user chooses from the list needs to be entered in cell N3 on my
worksheet. Below is my code for the control called comboStatus. Right now
however, my drop-down won't display any values.

Thanks for any help,
Marcia


**********************************************************
Private Sub comboStatus_Initialize()
'Add list entries to combo box. The value of each
'entry matches the corresponding ListIndex value
'in the combo box.
comboStatus.AddItem "Pioneer" 'ListIndex = 0
comboStatus.AddItem "CPP" 'ListIndex = 1
comboStatus.AddItem "No longer" 'ListIndex = 2

End Sub

Private Sub comboStatus_Change()
Range("N3").Value = comboStatus.Value
End Sub
 
Top