Ash:
Try this one.

Sub AddDeleteHpgBks()

With ActiveCell.EntireRow
If .PageBreak = xlPageBreakManual Then
.PageBreak = xlPageBreakNone
Else
.PageBreak = xlPageBreakManual
End If
End With

End Sub


--
Hope this helps
Martin Fishlock
Please do not forget to rate this reply.


"AshMorK" wrote:

Hello,
How can i get a conditional macro that add/delete a Hpagebreak before the
active cell if it not contains/contains a Hpagebreak?
I need something like this:

Sub AddDeleteHpgBks()
If ActiveWindow.SelectedSheets.Activecell???HPageBrea k=true Then
ActiveWindow.SelectedSheets.HPageBreaks.Add befo=ActiveCell
Else
ActiveWindow.SelectedSheets.HPageBreaks.Add befo=ActiveCell
End If
End Sub

Thanks

hi,

im able to make the page break mannual.
I want to delete that page break and add a new one after 10 cells.
im able to add a new one but the old one is not deleted.
i tried to change teh location of the page break but results in an com
exception.
If .PageBreak = XlPageBreak.xlPageBreakManual Then
.PageBreak = XlPageBreak.xlPageBreakNone
Else
.PageBreak = XlPageBreak.xlPageBreakManual
excelDRApp.ActiveWindow.SelectedSheets.HPageBreaks .Item(break).Delete()
EndIf


this statement does not have any affect.
Please help


"Martin Fishlock" wrote:

Ash:
Try this one.

Sub AddDeleteHpgBks()

With ActiveCell.EntireRow
If .PageBreak = xlPageBreakManual Then
.PageBreak = xlPageBreakNone
Else
.PageBreak = xlPageBreakManual
End If
End With

End Sub


--
Hope this helps
Martin Fishlock
Please do not forget to rate this reply.


"AshMorK" wrote:

Hello,
How can i get a conditional macro that add/delete a Hpagebreak before the
active cell if it not contains/contains a Hpagebreak?
I need something like this:

Sub AddDeleteHpgBks()
If ActiveWindow.SelectedSheets.Activecell???HPageBrea k=true Then
ActiveWindow.SelectedSheets.HPageBreaks.Add befo=ActiveCell
Else
ActiveWindow.SelectedSheets.HPageBreaks.Add befo=ActiveCell
End If
End Sub

Thanks