選択したエクセルシートのみpdf vba

Sub ExportSelectedSheetsToPDF()
    Dim selectedSheet As Worksheet
    Dim savePath As String
    
    ' PDFを保存するフォルダのパスを指定します
    savePath = "C:\Users\YourUsername\Documents\" ' 適切なパスに置き換えてください
    
    ' 選択したシートをPDFにエクスポートします
    For Each selectedSheet In ActiveWindow.SelectedSheets
        selectedSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=savePath & selectedSheet.Name & ".pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    Next selectedSheet
    
    MsgBox "選択したシートがPDFファイルに保存されました。"
End Sub