Excel vba PDF 複数ファイルを一括保存

質問

以下のコードで、for eachの部分をどのように変えると
1枚のpdfですべて保存出来るか教えてください。

よろしくお願いします。

sub macro1()
　dim h as range
　worksheets("Sheet1").select
　for each h in range("C2:C" & range("C65536").end(xlup).row)
　　worksheets("Sheet2").select
　　range("B6").value = h.value
　　range("E18...

回答No.1

ASIMOV-jp

全てのシートを選択して、１つのPDFファイルとして保存ということなら．．

http://www.officepro.jp/excelvba/sheet/index6.html