VBAでのPDFでの保存

Question

前提・実現したいこと

エクセルVBA初心者です。
VBAを使いファイル名を指定しPDFで保存を行いたいです。
ファイル名まではうまくいくのですが保存の際にエラーが出てしまいます。
PDFに保存の仕方と併せ、不備を教えて頂きたいです。

Sub ブック保存()
Dim SaveFileName As String, re As Variant
With Sheets("注文書").Range("B6")
If .Value = "" Then
MsgBox "入力されていません", vbExclamation
Exit Sub
Else
SaveFileName = "C:\Data\注文書_" & .Value & "" & Format(Now, "yyyymmdd") & "" & Range("T14")
End If
End With
re = Application.GetSaveAsFilename(SaveFileName)
If re = False Then
MsgBox "保存を中止しました", vbExclamation
Else
ActiveWorkbook.SaveAs SaveFileName
MsgBox "ブックを保存しました", vbInformation
End If
End Sub

発生している問題・エラーメッセージ

次の機能はマクロ無しのブックに保存できません。

1004

Answer 1

エラー「次の機能はマクロ無しのブックに保存できません。」はxlsm以外で保存しようとしているので、種類を変更してください。

PDFはActiveSheetを対象とする場合は下記で出力できます。

            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "○○○.pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
            OpenAfterPublish:=Flase