Amigo Vagner, Por favor, preciso de sua ajuda. É a respeito de sua solução : http://scriptbrasil.com.br/forum/index.php?showtopic=87072 Tentei executar porém me aparece a mensagem "Erro de compilação: 'Sub' ou 'Function' não definida", selecionando o comando NewZip onde está a linha de comando "NewZip (FileNameZip)". Tentei resolver definindo NewZip como uma variável, etc mas não tive êxito em nenhuma tentativa. Por isto gostaria de lhe perguntar se você está chamando NewZip de alguma DLL. Caso seja isto, por favor você poderia me enviar esta DLL ou me informar se é necessário habilitar algum Componente em Menu/Ferramentas/Referências no VBExcel?? Desde Já, Muito Obrigado!!