Evitar error

hola, javi !

Necesito evitar un error que me aparece cuando al buscar en una base de datos el valor buscado no existe
Estoy intentandolo con el siguiente código, pero no me funciona bien
If IsError(WorksheetFunction.VLookup(CodArticulo, Matriz2, columna, False)) Then
MsgBox ("El producto no existe en la BdDatos")
precio = 0
Else
precio = Buscar_Art(CodArticulo, CodProveedor, 5)
End If

suponiendo que no hay posibilidad de 'errores' para que las funciones de hoja de calculo por codigo
-> 'interpreten' las variables como argumentos 'validos' ...
prueba a modificar la primera instruccion que expones a...
If Application.WorksheetFunction.CountIf(Matriz2, CodArticulo) = 0 Then [etc. etc. etc.] ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.