■PDF印刷の際にフォルダー名で保存する

Sub シートをPDF出力_フォルダ選択()

Dim フォルダパス As String
Dim シート名 As String
Dim 対象フォルダ As FileDialog

' フォルダ選択
Set 対象フォルダ = Application.FileDialog(msoFileDialogFolderPicker)
対象フォルダ.Title = "保存先フォルダを選択してください"

If 対象フォルダ.Show <> -1 Then
MsgBox "キャンセルされました", vbExclamation
Exit Sub
End If

フォルダパス = 対象フォルダ.SelectedItems(1) & "\"
シート名 = ActiveSheet.Name

' PDF出力
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=フォルダパス & シート名 & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

MsgBox "PDF出力が完了しました", vbInformation

End Sub