Datos de un combobox a celda excel

Tengo useform que contiene un combobox (se carga automáticamente al iniziar el form). Lo que necesito es que el elemento seleccionado en el combo sea transferido a una celda del libro de excel. Mi problema es que lo hace solo si cierro el form, y la idea es que transfiera el dato, pero el from debe permanecer abierto. Adjunto el código que utilice. Gracias por su ayuda. Mi e-mail es [email protected]
Private Sub
ComboBox2_Change()
On Error Resume Next
Hoja1.Select
Range("hoja1!c14").Select
If
UserForm1.ComboBox2.Value = "" Then
Range("hoja1!d14") = 0
End If
If UserForm1.ComboBox2.Value <> "" Then
Range("hoja1!c14").Select
Range("hoja1!c14").Value =
UserForm1.ComboBox2.Value
End If
UserForm1.TextBox4 =
Range("hoja1!e14")
UserForm1.TextBox9.SetFocus
End Sub