Set page break with VBA?

[Russk68]

Hi All!
Is it possible to set page breaks by the value of a cell?
Example:
Cell A50="Page Break". Page break is the inserted in row 50.

Thank you!

Russ

 

[jolivanes]

Adds a Page Break above the "Page Break" Row.

Sub Maybe()
With ActiveSheet
    .ResetAllPageBreaks
    .HPageBreaks.Add (.Cells(.Columns(1).Find("Page Break", , , 1).Row, 1))
End With
End Sub

 

[Russk68]

Hi Jolivanes
This worked when I first tried it but then it stopped. I pasted your code in the sheet again and I still can't get it to work.
I'll try agin in a different workbook.
Thank you!

 

[jolivanes]

If it worked initially, something changed to make it not work.
The spelling of "Page Break"? Capitalization? Leading or trailing spaces?
It needs to be exact as in the code.

 

[Russk68]

I understand.
Does changing sheets trigger the macro?

 

[jolivanes]

No, it does not.
You have to invoke it.
The code should be in a regular module, not a Sheet module.
If you want the code triggered when changing sheets, you have to let us know.
In Post #3 you said that it worked when first tried. How did you make it work?

 

[Russk68]

I did paste the code in the sheet.
I believe it would work when I clicked on the Page Break Preview.
I will try in a regular module.

Thank you!