Guaciara,

Boa Tarde!

Você pode compactar seu arquivo e anexá-lo aqui mesmo. Logo abaixo da mensagem tem um botão para anexar arquivos. Caso precise, envie um e-mail para mim, pelas Mensagens Privadas.

Range("A1048576") sómente é valida à partir da versão 2007 do excel, se estiver utilizando em versão anterior (com o patch de compatibilidade) irá dar erro pois não é encontrada essa celula

Ola Wagner não consegui achar esse botão que vc falou, tentei mandar em anexo no particular, mas tb não achei o botão para anexar, rs desculpe é que sou nova por aqui

Minha versão é 2007.

Veja este tópico: viewtopic.php?t=3841&p=18946 , talvez lhe auxilie anexar o arquivo
Nota: O arquivo deve estar compactado com winrar, winzip ou similares

Pode tambem dispor o arquivo em algum site de compartilhamento (tipo sendspace/4shared/dropbos/skydrive)
e colar o link aqui

Esta ai zipado vê se vc consegue abrir

Apesar de estar utilizando a versão 2007, o arquivo está no formato xls, nessa situação o limite de linha é 65.536;
Duas possibilidades
Altere a linha de: Range("A1048576").Select Para: Range("A65536").Select
ou salve o arquivo na versão atual habilitada para macro (.xlsm), é preciso fechar o arquivo (após salvar) e reabrir o com a extensão .xlsm

Vou tentar alterar para A65536, pois aqui temos computador com versão 2003 ainda

Reinaldo, parece-me que deu certo, vc saberia me informar se é facil colocar a quantidade de estoque de cada produto qdo abro o formulário?
vc já viu ela é bem precária. rs