Engraçado, ei fiquei imaginando algo com a instrução "replace" mas não pensei que fosse dar certo e não é que funcionou. Para nós brasileiro...

Obrigado por responder Wagner, Vou testar o que você propôs e ao decorrer do dia dou o feedback sobre como a solução se dará.

Obrigado Mauro, funciono dessa forma.

If Sheets("Plan1).range("A2").value = empty then msgbox"Célula A2 vazia. Favor preencher",vbExclamation,"...

Cole o seguinte código em EstaPasta_de_Trabalho: Private Sub Workbook_Terminate() Application.DisplayAlerts = False ThisWorkbook.Sa...

Bom, consegui resolver o problema substituindo essa parte do código: For lDraftItem = myDraftsFolder.Items.Count To 1 Step -1 TOs =...

Alexandre, boa tarde. Seu exemplo proposto atendeu meu problema, pois, os emails que eu envio em massa possuem sempre o mesmo assunto. Ou seja, soluc...

Continuo tentando uma solução, mas sem êxito.

Alguém que ainda possua esta planilha pode disponibilizala aqui. As que estão aqui não estão mais disponíveis ou corrompidas. De acordo com o que fo...

Obrigado por responder Wagner Morel, Interessantes observações, vou analisar aqui e logo informo o que deu pra fazer pra otmizar essa busca.