Excel - Validar existencia

Buenos dias, tengo un problema a la hora de validar los datos en un comboBox de un usf en excel, es lo siguiente:
1) es un usf para ver precios en una lista de excel
Con el codigo que os adjunto controlo que el que el codigo exista el problema es que si lo pongo en el evento charge (que es donde lo tengo ya que se me rellenan automaticamente una serie de textbox) en cuanto pongo el primer numero ya me esta informando que el codigo no existe, en que evento lo debo de colocar para que lo aga al perder el foco o aun mejor cuando se hayan escrito como minimo 6 digitos (es el minimo que tienen los codigos)
Le he probado con click pero no funciona, con nofocus (no me ha dado error) pero tampoco funciona y no se si este es el evento para cuando pierda el foco, ya no se por donde tirar.
Mil gracias de antemano
Alberto


Private Sub ComboBox1_????????()
Dim i As Integer
Dim j As Integer
Dim final As Integer

For i = 6 To 10000
If Hoja1.Cells(i, 1) = "" Then
final = i - 1
Exit For
End If
Next


For j = 2 To final
If Hoja1.Cells(j, 1) <> ComboBox1 Then
MsgBox "El CODIGO solicitado no existe ó ha sido descatalogado", vbCritical, "ATENCIÓN"
ComboBox1.SetFocus
Exit Sub
Exit For
End If
Next

End Sub

probá chequeando la cantidad de caracteres ingresados

If Len(Combo.Text) < 6 Then Exit Sub

Saludos desde Baires, JuanC

Hola JuanC, gracias por tu pronta respuesta pero no me funiona, probablemente por que no se donde aplicarlo, te cuento ,si lo hago en el evento charge como lo rellena automatico de la lista y me salta el aviso en el primer digito.
Si lo quiero poner para cuando el combobox pierda el foco esta instruccion seria correcta?
Private Sub ComboBox1_noFocus()

No se si quiza hubiese tenido que usar un listbox en vez de un combobox

Mil gracias por tus respuestas
Alberto

pasame el archivo y vemos...

Saludos desde Baires, JuanC