VBA expression to insert pagebreak

I need to learn VBA syntax.
I have the following line of code and its not working.

Here's what I need to do.
I have a list of row numbers in AA2:AA6, so for i =1 to 5
I want to insert a page break before cell (column AA and Row(#in cell AA2-5))

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("AA" & Range("AA" & i + 1).Value)

Thanks for help in advance.
modytrane

Code tags, please.

Maybe like this:

    Dim cell    As Range

    For Each cell In Range("AA2:AA6")
        If IsNumeric(cell.Value) Then
            ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(cell.Value)
        End If
    Next cell

modytrane,

You need to mark this thread as solved if you found a solution

VBA Noob