ExcelファイルをまとめてPDFファイルに変換したい

1. １つのディレクトリに対象のExcelファイルを保存
2. 適当なファイルを１つExcelファイルを開く
3. Alt + F11をおして、マクロの開発画面へ
4. ThisWorkbookを選択して、マクロの編集画面へ
5. 以下のコードを貼っつけて、F5を押して実行

Sub ConvertXlsToPdf()
    Dim FolderPath As String
    Dim FileName As String
    Dim wb As Workbook
    
    ' 変換するファイルが格納されているディレクトリのパスを指定します
    FolderPath = "C:\Path\To\Directory\"
    
    ' 指定したディレクトリ内のすべてのファイルに対して処理を行います
    ' ファイル拡張子は.xlsとしています
    FileName = Dir(FolderPath & "*.xls")
    Do While FileName <> ""
        ' Excelファイルを開きます
        Set wb = Workbooks.Open(FolderPath & FileName)
        
        ' PDFファイルの保存パスを作成します
        Dim PdfPath As String
        PdfPath = FolderPath & Left(FileName, Len(FileName) - 4) & ".pdf"
        
        ' PDFファイルに変換します
        wb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfPath, Quality:=xlQualityStandard
        
        ' Excelファイルを閉じます
        wb.Close SaveChanges:=False
        
        ' 次のファイルを処理します
        FileName = Dir
    Loop
    
    MsgBox "変換が完了しました。"
End Sub