Free for PREMIUM members
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xcell As Object
Dim xAreas As Range
Set xAreas = Intersect(Target, Range("F:F"))
If xAreas Is Nothing Then Exit Sub
For Each xcell In xAreas
If xcell = "" Then
Rows(xcell.Row).PageBreak = xlNone
Rows(xcell.Row).PageBreak = xlPageBreakManual
Open in new window
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.