Nov 25 2020 01:39 AM
Nov 25 2020 03:32 AM
dynamic Page break show with VBA:
Sub N_Lino()
Dim WS As Worksheet: Set WS = ActiveSheet
For i = 1 To WS.HPageBreaks.Count
Ad = WS.HPageBreaks(i).Location.Address
If Not IsEmpty(Range(Ad).Offset(-1)) Then
Range(Ad).End(xlUp).PageBreak = xlPageBreakManual
End If
Next i
End Sub
Insert, move, or delete page breaks in a worksheet
View page breaks
I would be happy to know if I could help.
Nikolino
I know I don't know anything (Socrates)
* Kindly Mark and Vote any reply if it helps please, as it will be beneficial to more Community members reading here.