VBA active sheetをPDF化して指定フォルダに保存

VBAの実際のコードが知りたいです。
やりたい事は、active sheetをPDF化→指定フォルダに保存（フォルダ名はセルから代入）です。
これをボタンを押して実行できるようにするには、どのようなコードになりますでしょうか。
よろしくお願いします。

No.1 回答者： Qchan1962 回答日時： 2022/07/07 11:48

こんにちは

Private Sub CommandButton1_Click()
Dim fPath As String, fName As String
With ActiveSheet
fPath = .Range("A1")
fName = .Name
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fPath & "\" & fName & ".pdf"
End With
End Sub