Excel - cambiar ubicación de carpeta a libertad macro

muy buen dia , espero me puedan ayudar tengo una macro que primero valida si tengo una carpeta creada en la ruta C:\Users\alozanoc\OneDrive\Escritorio\QR_Image
si esta creada la elimina y la crea si no solo la crea ," es posible que en vez te quemar la ruta que el usuario elija el lugar y que igualmente siga validando si
esta creada la borre y permita indicar donde se creara , si no esta creada solo permita indicar donde se creara" solo elegir el lugar por que la carpeta que se crea
siempre sera QR_Imagen.

quedo atento a su ayuda muchas gracias.



Sub Alistar_Documento()
'
' Crea carpeta
'
Dim NombreCarpeta As String
Dim ExisteCarpeta As String


NombreCarpeta = "C:\Users\alozanoc\OneDrive\Escritorio\QR_Imagen"


ExisteCarpeta = Dir(NombreCarpeta, vbDirectory)
'Crea carpeta para poder extraer solo las imagenes


If ExisteCarpeta = "" Then
MsgBox "La carpeta no existe se creara para guardar las imagenes"
Set f = CreateObject("Scripting.FileSystemObject")

f.CreateFolder ("C:\Users\alozanoc\OneDrive - Nexans\Escritorio\QR_Imagen")


Else
'crear carpeta si existe la borra y la crea

MsgBox "La carpeta existe se borrara y creara de nuevo"
Set f = CreateObject("Scripting.FileSystemObject")

f.deletefolder "C:\Users\alozanoc\OneDrive - Nexans\Escritorio\QR_Imagen"
f.CreateFolder ("C:\Users\alozanoc\OneDrive - Nexans\Escritorio\QR_Imagen")

End If



End Sub