Macro para crear carpetas animadas

Bien para crear una carpeta en el escritorio con el nombre de una celda D4, utilice la siguiente macro

Crearcarpeta "C:\Users\JAITEF\Desktop", Range("D4")

Luego cuando quise crear otra carpeta dentro de la anterior carpeta, con nombre de celda D8, utilice:

creacarpeta "C:\Users\JAITEF\Desktop\" & Range("D4") , Range("D8")

Pero ahora, quiero crear otra carpeta dentro de la ultima, y no encuentro la corrección adecuada, ésta debe tener el nombre de la celda D12.

Y por ultimo crear un libro de una sola hoja, y que tenga el nombre de la celda D16.

Gracias por su ayuda...