This should return the location of the desktop. I use it in VBScript, I don't know what modifications (if any) you would need to make it work in Excel

Set WshShell = WScript.CreateObject("WScript.Shell"
strDesktop = WshShell.SpecialFolders("Desktop")