[حل شده] کمک برای ذخیره PDF در فولدری به نام Backup در کنار فایل اکسل

[hasa2]

سلام
من میخوام از شیت یه خروجی PDF با ذکر تاریخ و زمان بگیرم که از کد زیر استفاده کردم.
اما فایل ذخیره شده میاد تو My Documents ویندوز ذخیره میشه
چطور میتونم کاری کنم که فایل ساخته شده دقیقا جایی که فایل اکسل قرار داره داخل یک فولدر به نام Backup ذخیره بشه ؟

ThisWorkbook.Path رو هرجا میزارم که بهش بفهمونم کنار فایل اکسل ذخیره کنه خطا میده که مشخصه کار من اشتباهه

    Dim Name As String    
    Name = ActiveSheet.Name & " " & _
        Format(Now(), "dd.mm.yy hh.mm") & ".pdf"
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Name, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True

[hasa2]

Dim Name As String    
    Name = ThisWorkbook.Path & "\Backup\" & ActiveSheet.Name & " " & _
        Format(Now(), "dd.mm.yy hh.mm") & ".pdf"
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Name, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True