Excel Pesquisa automatica com listbox

[jjde20]

Boa Tarde!

 

Sou novo por aqui (geralmente tiro minha duvidas nos posts existentes), então se fazer alguma coisa errada, me descupem.

 

Estou montando um programa para controle de estoque, e estou utilizando um listbox para realizar a pesquisa, quando executo o programa da erro na linha >>>     .List(linhalistbox, 0) = Sheets("BDestoque").Cells(linha, 1) 'Codigo, o sitema ate retorna alguns resultados na pesquisa, mas da o erro. Já olhei tudo e não consigo resolver o problema, sou novo em programação também (primeira vez), alguem podeia ajudar por favor, precisando muito disso. Estou colocando a planilha em anexo também o erro é no formulario cdescricao.

 

Muito Obrigado a todo pela ajuda.

Gerenciamento.zip

[jjde20]

Alguem poderia da uma força???