Путь к Рабочему Столу пользователя (WScript.Shell + Environ)

Dim sFilePath$
Dim objWScript As Object
    
    Set objWScript = CreateObject("WScript.Shell")
    sFilePath = objWScript.SpecialFolders("Desktop") & "\"
    sFilePath = sFilePath & "Отчет исполнителя за " & Format(Date, "yyyy-mm-dd") & ".xlsx"
    'Debug.Print sFilePath
    Set objWScript = Nothing

Ещё вариант:

    sFilePath = Environ("USERPROFILE") & "\Desktop\Отчет исполнителя за " & Format(Date, "dd_mmm_yyyy") & ".xlsx