Solucionado
Testando o código gerado pela IA, está dando erro de sintaxe e também diz que não é possível executar no modo interromper:
For Each empresa In dict.keys
** Set arquivo = fs.CreateTextFile(caminho & "\" & empresa & ".csv", True**
arquivo.Write dict(empresa)
arquivo.Close
Next empresa
Saberiam me informar se é algum problema no excel?
Oii, Juliana! Tudo bem?
Agradeço por aguardar o nosso retorno.
Em seu código está faltando fechar o código com um parêntese na linha Set arquivo = fs.CreateTextFile(caminho & "\" & empresa & ".csv", True). Então reescreva-o, deixando assim:
For Each empresa In dict.keys
Set arquivo = fs.CreateTextFile(caminho & "\" & empresa & ".csv", True)
arquivo.Write dict(empresa)
arquivo.Close
Next empresa
E sobre a mensagem interromper, é possível que o código esteja tentando executar enquanto o Excel está sendo interrompido por alguma instabilidade. Uma sugestão é usar a tecla Reset no editor do VBA para poder parar a execução antes de rodar novamente o código.
Espero que dê certo, até mais!