Crear Carpetas con el archivo del mismo nombre VBA Excel

Estimado tengo un problema en donde en una carpeta hay muchos archivos excel de distintos nombres.

Algún apoyo para poder generar una carpeta con el mismo nombre del archivo excel y dentro del mismo una copia del archivo excel mismo como se ve en las siguientes imágenes.

Primero tengo mis archivos excel

Luego creo una carpeta por cada archivo excel

Dentro de cada carpeta creada copio el archivo mismo

Algún apoyo de como poder generar esto, es que tengo muchos archivos con nombres y necesito crear y copiar el archivo en las carpetas. Su apoyo