Excel - generar carpeta en escritorio sin importar usuario

Buena noche , espero me puedan ayudar, tengo una macro que me crea una carpeta en
la dirección que requiera , mas tengo un problema cada que paso el archivo para otra persona hay que cambiar la ruta ,es posible colocar que siempre genere en el escritorio sin importar el usuario del equipo



Dim NombreCarpeta As String
Dim ExisteCarpeta As String



NombreCarpeta = "C:\Users\andres\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\andres\OneDrive\Escritorio\QR_Imagen")

End If

hola, una opción es:

reemplazar esta linea: NombreCarpeta = "C:\Users\andres\OneDrive\Escritorio\QR_Imagen"

por esta: NombreCarpeta = Environ("USERPROFILE") & "\Desktop\QR_imagen"