違うシートのデータを１つのPDFファイル保存VBA

質問

Sub データPDFファイル化()

If MsgBox("ファイルをPDF化し過去データとして保存します。よろしいでしょうか？", vbYesNo) = vbNo Then
End
End If
If Range("L2").Value <> "" Then
Dim Fn As String
Fn = Format(Range("L2"), "yyyy年m月d日") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="D:\フォルダB\過去記録データ保存用フォルダ\データ\" & Fn
Else
MsgBox "セルL2にファイル名が入力されていません。", vbExclamation
End If
End Sub

この様なコードがあります。エクセル２００３では使用出来ないのでエクセル２００７以降の使用です。

これはシート名「A」にコマンドボタンを設置し、そのコマンドボタンを押すとPDF化して保存するマクロです。

そこで質問ですがコマンドボタンを押すとシート名「A」と隣にあるシート名「B」をまとめてPDFファイルで保存する方法はどの様にすれば良いのでしょうか？

PDF化した際は１ページ目がシート名「A」で２ページ目がシート名「B」を表示させ、名前はシート名「A」のL2（yyyy年m月d日）で保存します。

回答No.1

kybo · ベストアンサー

PDF化するコードの前にシートを複数選択する部分を追加すればいいかと思います。

Sheets(Array("A", "B")).Select　’★追加
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="D:\フォルダB\過去記録データ保存用フォルダ\データ\" & Fn

お礼

上記回答をヒントにＶＢＡを組む事が出来ました。
この度はありがとうございました。