VBA: Desktop når OneDrive er indblandet

Hej alle

Jeg nappede denne fra StackOverflow:
Sub SavePDF()   
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _                 
          Filename:= Environ("USERPROFILE") & "\Desktop\Export.pdf", _       
          OpenAfterPublish:=True
End Sub 

Fordi jeg gerne ville have at den gemte på brugerens skrivebord, men idet vores computersetup er at skrivebordet er en del af OneDrive, så gemmer denne ikke filen et sted hvor den er synlig på skrivebordet efterfølgende.
Er der nogle af jer som har ideer til hvordan jeg skriver en generisk løsning?

Stien ser sådan ud når jeg har manuelt gemt noget der og så tager Activeworkbook.Path:
https://XXX.sharepoint.com/personal/user_name/Documents/Desktop