Martin Fishlock
12/19/2006 1:51:00 AM
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???HPageBreak=true Then
> ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
> Else
> ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
> End If
> End Sub
>
> Thanks