macro que importa txt para planilha

Preciso importar vários arquivos de texto para planilhas, gravei uma macro que faz isso porem tenho q ficar selecionando arquivo por arquivo, tem como gerar uma macro q puxe todos os arquivos de uma pasta por exemplo? assim eu colocaria todos os arquivos que terão que ser importados nessa pasta e a macro importa todos eles sem ter que ficar selecionando… o nome da planilha terá o nome do arquivo importado…

em anexo esta uma planilha com a macro que utilizo atualmenteEDITOR.ods