Mover Carpeta que tiene como nombre el contenido de una celda

[toloperalta]

Hola a todos, gracias de nuevo por ayudarme.

Tengo una macro que me crea una carpeta según el nombre de una celda en éste caso D1:

Dim Nom_Carpeta As String

Nom_Carpeta = Range("D1").Value

MkDir "C:\HPRPACIENTES\" & Nom_Carpeta

Lo que quiero es crear una macro que me permita mover esa carpeta a otro lugar.

En resumen tendría que poder mover la carpeta (cuyo nombre es igual a D1) a otro lugar.

Gracias y espero que puedan ayudarme