ComboBox Issues

[Darrin Henshaw]

Sorry if this is a duplicate, but it didn't seem to post the first time:

I'm having another ComboBox issue. The good thing about a combobox is
that the user has the ability to enter their own answer, when the ones
presented do not match what they need, which is why I'm using one.
My ComboBox has 4 options presented to the user. The ComboBox.Value of
the first option is 0, and the next is 1 etc. Now, what would be the
value of the ComboBox if the user enters in their own info. I'm using
the ComboBox.Value to determine the contents of one cell, and can get it
to work for the four options I give them, but if they put in their own
stuff, I can't get that info to populate into the cell. My code is as
follows:

Private Sub Contract1_Enter()
ComboBox1.DropDown
ComboBox1.AddItem "Option 1"
ComboBox1.AddItem "Option 2"
ComboBox1.AddItem "Option 3"
ComboBox1.AddItem "Option 4"
'Use drop-down list
ComboBox1.Style = fmStyleDropDownCombo
'Combo box values are ListIndex values
ComboBox1.BoundColumn = 0
'Set combo box to first entry
ComboBox1.ListIndex = 0

End Sub

Then in a command button I have this:
If Contract1.Value = 0 Then ActiveWorkbook.Worksheets
_("Sheet1").Range("E20") = "Option 0"
If Contract1.Value = 1 Then ActiveWorkbook.Worksheets
_("Sheet1").Range("E20") = "Option 1"
If Contract1.Value = 2 Then ActiveWorkbook.Worksheets
_("Sheet1").Range("E20") = "Option 2"
If Contract1.Value = 3 Then ActiveWorkbook.Worksheets
_("Sheet1").Range("E20") = "Option 3"

Any ideas?

 

[Tom Ogilvy]

See answer to your first posting.