Option Explicit
Sub testme()
Dim myDesktopPath As String
myDesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
MsgBox myDesktopPath
End Sub
Option Explicit
Sub testme()
Dim myDesktopPath As String
myDesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
MsgBox myDesktopPath
End Sub
If yes, then one way: ....
Sub testme()
Dim myDesktopPath As String
myDesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
MsgBox myDesktopPath
End Sub