Copy Value from ComboBox to Cell
 

When I set boundcolumn to 0 the code will work, but the value of the
combobox will not stay when file is saved and reopened. When I say value I
mean the text displayed in the box. When bound column is set to 1 the code
will not work, or does not have the desired outcome, No information shows up
in cell E4, but the value, text displayed, will not stay when file is saved
and reopened. What am I doing wrong?

Private Sub ComboBox10_Change()

If ComboBox10.Value = 0 Then
Range("e4").Value = " "
ElseIf ComboBox10.Value = 1 Then
Range("e4").Value = "Urgent"
ElseIf ComboBox10.Value = 2 Then
Range("e4").Value = "Routine"
End If

End Sub

Thanks so much for all the help.

Tim Duell
Buckeye Shapeform