Indentificando el "Escritorio" del PC - Macro

[actjfc]

Por favor, puede alguien decirme si este macro para identificar el Escritorio del PC (Desktop) funciona para Excel/Windows con interface en español, en inglés funciona perfectamente.

Excel 2007+

Sub Desktop()
Dim DTAddress As String
DTAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
MsgBox CreateObject("WScript.Shell").SpecialFolders("Desktop")
End Sub

Si no funciona, que o cómo se debe moficar para que funcione en Windows español.

¡Gracias!

 

[galileogali]

Prueba esto

Sub Desktop()
Dim DTAddress As String
DTAddress = CreateObject("WScript.Shell").SpecialFolders("Escritorio") & Application.PathSeparator
MsgBox CreateObject("WScript.Shell").SpecialFolders("Desktop")
End Sub