Muito obrigado! Deu tudo certo!!!!!!

Reinaldo Até o procedimento para salvar esta tudo Ok!! O problema é o próximo passo! Sheets("CADASTRO").Activate For X ...