Obrigado já funciona. Eu tinha alterado as linhas como você alterou, For i = 2 To UBound(a, 1) If Not dic.exists(a(i, 10)) Then Set...

ok já enviei depois coloco o ficheiro alterado para ficar como teste para todos Obrigado pela disponibilidade

Realmente no ficheiro que mandei funciona Posso mandar e-mail pra você com o ficheiro original? obrigado

Obrigado Alexandrevba Dá erro na linha ws.Name = e ... a coluna a filtrar no ficheiro original é a j ... alterei para ws.Name = j mas continua a ...

Obrigado Patropi. envio uma pequena parte do ficheiro para teste, https://drive.google.com/file/d/0B9YYmIQcUzxdZkZvUzBKYWVXYWc/view?...