Grave uma macro fazendo para uma planilha. Poste o código aqui. Aí o código poderá ser alterado para percorrer todas as planilhas.

Sugestão de código abaixo

Private Sub atualizar_Click() Dim mudou As Boolean Dim achou As Boolean Dim linha As Long mudou = False linha = 3 achou = False 'If MsgBox("Desej...

Anexe uma versão resumida e leve.

O código foi alterado

Option Explicit Private Sub TextBox1_Change() Call somar End Sub Private Sub TextBox2_Change() Call somar End Sub Private Sub TextBox3_Change()...

O código foi alterado

Private Sub CommandButton1_Click() TextBox7.Text = CDbl(TextBox1.Value) + CDbl(TextBox2.Value) + CDbl(TextBox3.Value) + CDbl(TextB...

Private Sub CommandButton1_Click() TextBox7.Text = Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4&...

Call Envia_Emails (EnviarPara)

Alguém pode me dar a solução. Utilize ponto de interrogação quando for uma pergunta: Alguém pode me dar a solução?

Sobre esse erro, não sei o que fazer.

Deu erro

Fiz algumas alterações no código acima. Favor verificar. Aqui percorreu os arquivos, depois deu erro de automação. Aí já não sei o que é.

Private Sub CommandButton1_Click() Call ListaArquivos End Sub Public Sub ListaArquivos() 'Atenção: Faça referência à biblioteca Micrsoft Scrip...