Delet PageBreaks in VB

I'm trying to write a procedure to delete all the page breaks on a sheet. This is the code I've tried so far:

Dim x As Integer
Dim n As Integer

x = Summary.VPageBreaks.Count
For n = 1 To x
Summary.VPageBreaks.Item(n).Delete
Next n
I've also tried numerous other variations of this that don't work either (this returns an Application Defined or Object Defined Error). Is there an easy way to do this?

Thanks,
Dave