¿Cambiar nombre de archivo por el nombre de la carpeta en la cual esta incluido?

Tengo un problema y no se como solucionarlo, pero seguro que alguna idea tenéis.

Resulta que tengo como 150 archivos con el mismo nombre, la única diferencia es que están almacenados en carpetas distintas (150 carpetas). La identificación por lo tanto esta en la carpeta.

Necesitaría una macro excel para cambiar dichos nombres de archivos, por el nombre de la carpeta donde esta incluido.