Макрос VBA для создания отдельных PDF-файлов разных диапазонов на разных листах

Question

Я пытаюсь создать кнопку макроса, которая будет создавать PDF-файлы для определенного диапазона на нескольких листах, и необязательно лист, на котором будет размещаться макрос.

Я знаю, что приведенный ниже код работает длякнопка макроса на одном листе (активный лист), поэтому я попытался адаптировать ее, чтобы просмотреть рабочую книгу для отдельных листов, взять определенные диапазоны на этих листах и ​​создать PDF-файл диапазона.

Iсоздали черновик ниже, но я получаю сообщение об ошибке: Неверное количество аргументов или неправильное присвоение свойства.

Пожалуйста, кто-нибудь может дать мне знать;i) если то, что я пытаюсь сделать, возможно, и ii) как я могу исправить приведенный ниже код, чтобы он работал, TIA за любую предоставленную помощь.

Sub DailyPDF()

With ThisWorkbook.Worksheets("SHEETA")

    .PageSetup.PrintArea = "$A$1:$F$70"
    .ExportAsFixedFormat _
    filename:=Environ("userprofile") & "\Daily Portfolio Management Report\" & "Daily Portfolio Monitoring - " & .Range("d1").Text & ".pdf", _
       Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End With


With ThisWorkbook.Worksheets("SHEETB")

    .PageSetup.PrintArea = "$A$1:$F$74"
    .ExportAsFixedFormat _
filename:=Environ("userprofile") & "\Daily Portfolio Management Report\" & "Daily Portfolio Monitoring - " & .Range("d1").Text & ".pdf", _
       Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

End With

End Sub