Excel - Error en buscar

Hola a todos:
Tengo el siguiente código que me sirve para buscar un ID de producto:

Cells.Find(What:=Val(TextBox1), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Lblproducto.Caption = "Producto " & Selection

Hasta ahi todo va bien, pero cuando introduzco un ID de producto que no existe me sale el ERROR '91' EN TIEMPO DE EJECUCION, serian tan amables de indicarme que código debo agregar para que no me salga este error.

Sergio.

Una solución, aunque no la mejor,

On Error Goto 100
80 Cells.Find(What:=Val(TextBox1), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Lblproducto.Caption = "Producto " & Selection
'
'Tratamiento de errores
100 IF Err = 0 Then Goto 140
IF Err = 91 And Erl = 80 THEN
MsgBox "No se encuentra el código"
Resume Número_de_línea_donde_volver_o_continuar
End IF
Resume Número_de_línea_donde_volver_o_continuar_en_caso_que_no_sea_error_91
'
'
' Continua el código normal
140 On Error Goto 0

Saludos

Gracias por tomarte el tiempo para responder, la verdad es que tu solución me ha funcionado muy bien.

Sergio.