Save individual excel sheets to separate PDF files by VBA codes
<p>I am trying to save some individual excel sheets to separate PDF files and rename each file based on some fixed cells and each sheets' names, the code is as follows, but the results are not as I expected, could you please help me review if there is something wrong with my codes? </p>

<pre><code>Option Explicit

Sub SheetsToPDFs()

    Dim wks As Worksheet

    ActiveWorkbook.Sheets(Array("Overall", "AGRM", "AICI", "AMUI", "ARMT")).Select
    For Each wks In Worksheets
        wks.Select
        wks.ExportAsFixedFormat Type:=xlTypePDF, _
        FileName:=Range("SavePath").Value &amp; "\" &amp; wks.Name &amp; "_CYProductionReport_" &amp; Range("ReportDate").Value, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False

    Next wks

End Sub
</code></pre>