Entao disponibiliza o seu arquivo.

So usei formulas Qto a tabela em cada aba basta criar a primeira Copiar e colar nas outras 169 É fundamental colar nas mesmas celulas neste exempl...

Ve se é isso

Disponibilize o arquivo

Segue exemplo Usuario admin Senha admin Usuarios cadastrados na aba usuario

Verifique as coluna UA e UB das abas Arquivo 001 e Arquivo 002, apliquei somase nas tabelas e depois totalizei na aba resumo. Segue arquivo

Disponibilize o arquivo

Abra o arquivo Ao dar Erro clique em Depurar Na janela que abrir apague todos os codigos

Troque o codigo da planilha por este: Private Sub Worksheet_change(ByVal Target As Range) Dim OutApp As Object Dim OutMail As Object D...

Vai salvar o arquivo criado com qual nome? Não usei sua planilha como base.. Esse codigo é um exemplo que salva o resultado em uma arquivo xlsx ...

A estrutura do arquivo que interessa... Suas 170 abas possuem apenas 2 colunas cada?

Esse é o seu arquivo? Qual o criterio para filtrar os dados?

Eu nao tenho como testar entao faça os testes tudo indica que deve funcionar

Com base na sua planilha de exemplo Troque o seu codigo por este Sub InserirNomes() Dim plan As Range Dim WNULinha As Long Dim W...

Se disponibilizar a planilha fica mais facil