改ページを挿入

いつもお世話になっております
下記のコードは改ページを挿入するコードなのですが、
w.PageSetup.PrintArea = Range("B3", Cells(Rows.Count, "B").End(xlUp))
でエラーになります。
わかる方おしえてくれませんでしょうか

Dim w As Worksheet
Set w = ActiveSheet

w.PageSetup.PrintArea = Range("B3", Cells(Rows.Count, "B").End(xlUp))

w.ResetAllPageBreaks
w.HPageBreaks.Add Range("A13")

w.VPageBreaks.Add Range("G:G")

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2022/12/04 23:33

こんばんは

Range("B3", Cells(Rows.Count, "B").End(xlUp))はオブジェクトです
PageSetup.PrintAreaは範囲を示す文字列でなければなりません

w.PageSetup.PrintArea = Range("B3", Cells(Rows.Count, "B").End(xlUp)).Address

この回答へのお礼

いつもありがとうございます。

お礼日時：2022/12/05 07:59