Excelで特定の文字のところで自動的に改ページしたい

下記マクロを作成していただいたのですが
改ページのみ自動的に設定したいので
プリントアウト部分を削除したいのですが
その方法がわかりません。
教えて頂けないでしょうか？
宜しくお願いいたします。

マクロはよくわからないのですが
※ExcelのG列で”改”の文字が
入力されていたときに”改”がある
行毎に改ページを設定している
マクロだと思うのですが、、、
このまま使用するとプリントアウトまで
してしまいます。

Sub test01()
d = Range("B65536").End(xlUp).Row
For i = 2 To d
If InStr(Cells(i, "G"), "改") > 0 Then
Cells(i, 1).PageBreak = xlPageBreakManual
End If
Next i
Cells.PrintOut
End Sub

No.1 ベストアンサー 回答者： ママチャリ 回答日時： 2021/11/18 12:35

Cells.PrintOut　のコードを削除するだけでOKです。

この回答へのお礼

ありがとうございます～～～
(m´・ω・｀)m

お礼日時：2021/11/18 12:41