I am trying to copy the value of the combobox to a cell and am having
difficulties. Below is the test I tried and could not get it to work.

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

Any help would be appreciated.

Thanks

Tim Duell
Buckeye Shapeform