Refer to pagebreak by the row number

[tiredofit]

As far as I'm aware, horizontal pagebreaks are referred to by its number, such as

    Sheet1.HPageBreaks(1).Delete

I want to refer to its row number but the following code fails:

Dim i As Long

For i= 1 To 100
            
     If Sheet1.Rows(Ticker).PageBreak <> xlPageBreakNone Then
                    
         If (i- 25) Mod Increment <> 0 Then
                    
             Sheet1.HPageBreaks(Sheet1.rows(i)).Delete
                    
          End If
                    
        End If
                
Next Ticker

Error message:

Run-time error '424'

Object required

on this line:

Sheet1.HPageBreaks(Sheet1.rows(i)).Delete

Is it possible to refer to horizontal page breaks by its row number?

Thanks

 

[tiredofit]

As far as I'm aware, horizontal pagebreaks are referred to by its number, such as

    Sheet1.HPageBreaks(1).Delete

I want to refer to its row number but the following code fails:

Dim i As Long

For i= 1 To 100
           
     If Sheet1.Rows(Ticker).PageBreak <> xlPageBreakNone Then
                   
         If (i- 25) Mod Increment <> 0 Then
                   
             Sheet1.HPageBreaks(Sheet1.rows(i)).Delete
                   
          End If
                   
        End If
               
Next Ticker

Error message:

Run-time error '424'

Object required

on this line:

Sheet1.HPageBreaks(Sheet1.rows(i)).Delete

Is it possible to refer to horizontal page breaks by its row number?

Thanks

EDIT SORTED:

Dim a As Long

a = 0

Dim i As Long

For i= 1 To 100
           
     If Sheet1.Rows(Ticker).PageBreak <> xlPageBreakNone Then

         a = a + 1
                   
         If (i- 25) Mod Increment <> 0 Then
                   
             Sheet1.HPageBreaks(a).Delete
                   
          End If
                   
        End If
               
Next Ticker