Combobox

Hola, tengo u formulario en el que a través de un combobox, exactamente el nº 4, busco de la lista y al seleccionar o escribir uno de los nombres de la lista me llena automáticamente otros textbox con datos relacionados, ahora mi problema es que cuando escribo algo que no esta en la lista me arroja error y se cae el form, lo que quiero es que no se caiga osea simplemente me diga que no existe el valor no se o algo así ok simplemente no de busque nada pero que no se caiga, estaes la configuración del combobox4:
Private Sub ComboBox4_Change()
Application.ScreenUpdating = False
Sheets("productos").Activate
Range("c2").Select
cliente_existente = Cells.Find(What:=ComboBox4, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=True).Activate
           'Verifica si el cliente ya existe
           If cliente_existente = True Then
                TextBox7 = ActiveCell.Offset(0, 1).Value
                TextBox11.Value = ActiveCell.Offset(0, 3).Value
                TextBox8.Value = ActiveCell.Offset(0, 2).Value
                Sheets("ingresos").Activate
           End If
Application.ScreenUpdating = True
End Sub
y en la configuracion del UserForm tengo esto para cargar los valores al combo
Set AllCells = Sheets("productos").Range("c2:c10000")
Que tengo que hacer
Gracias