Este fórum está sendo desativado

[lucianol]

Olá Caros,
enho uma planilha para envio de e-mails diretamente pelo Excel e também uma outra rotina para criar pasta, sub-pasta e gravar o arquivo.
Porém, não sei por qual motivo, quando clico sobre o botão Enviar , o Excel apresenta erro e para de funcionar, fechando e não prepara o arquivo para enviar por e-mail via outlook.
Já reescrevi as macros, deletei informações que poderia estar conflitando entre as macros, mas não consigo resolver.
As vezes tb apresenta erro ao clicar sobre o botão Limpar, esse tem a função de limpar o conteúdo das células C16:M50.

Alguem poderia por favor analisar o arquivo anexo e verificar o que pode estar ocorrendo?

Segue arquivo anexo.

Grato pela atenção

Luciano

[babdallas]

Em relação ao botão Limpar, te assim:

Código: Selecionar todos

Public Sub Limpar()
    Planilha1.Range("C16:M50").ClearContents
End Sub

Com relação ao envio do email, você tentou depurar o código para ver onde está o problema?