descompactar otros

Espero que alguien me pueda ayudar por favor. Como pedo modificar la siguiente macro que este foro me ayudaron a hacerla, ahora no puedo modificarla para que me tome del mismo directorio el archivo y lo descompacte en otros directorios Sub ...