Renato, boa tarde.

Veja se é isso.
O erro estava na function VLookup, ela faz exatamente a mesma coisa que o PROCV, só que em VBA. Sendo assim, os argumentos devem ter a mesma lógica. No seu exemplo, dava erro pq o valor da Combobox não existia no intervalo que vc especificou (ex.: Item "Pedra" no Range("e2:h50")).

Abs!

Se ajudou, clique na mãozinha acima para agradecer e marque o tópico como resolvido

Muito Obrigado JPedro... valeu

Só uma duvida JPedro, porque quando eu retiro "On Error Resume Next" ele continua com o erro?

renato320,

Boa noite!

Porque essa linha é justamente para quando o ponteiro do processador encontrar um erro, ele ignorar o erro e continuar na linha imediatamente posterior ao erro. Não vi o código, todavia, muito provavelmente, o processador está encontrando um erro em algum momento e, se retirar a linha mencionada, ele acusa o erro e interrompe a execução.

Valeu