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