Copiar todos os arquivos de uma pasta e colar em várias pastas

[Adonias]

Pessoal, tem como um código VBA copiar todos os arquvos contidos numa pasta e colá-los em todas as pastas dentro de um diretório que devo especificar?

[Adonias]

Vejam, eu consigo copiar todos os arquivo da pasta e colar todos eles apenas em uma outra pasta.
O que quero é que seja colado em todas as pastas que houverem dentro do diretório escolhido e queria que o usuário pudesse escolher o diretório onde estão as pastas que deverão receber a copia dos arquivos.