Referencing the very top of a page??

[mmartin]

Hi,
does anyone know how I could advance through a sheet(which is full of page breaks) one page at a time and reference the very first cell of each page?
Cheers,
Mark

[Colo]

Hi. Pls try this.

Sub test()

    Dim objBreak As HPageBreak, rngLine As Range

    ActiveWindow.View = xlPageBreakPreview

    For Each objBreak In ActiveSheet.HPageBreaks

        Set rngLine = objBreak.Location

        Debug.Print rngLine.Address

    Next

    ActiveWindow.View = xlNormalView

    Set objBreak = Nothing: Set rngLine = Nothing

End Sub

[ This Message was edited by: Colo on 2002-04-23 02:38 ]

[mmartin]

Thanks Colo,
but that debug rpints the page number not the first cell reference. I'm trying to copy the first cell of each page into each page header. Any ideas?
Cheers,
Mark

[Colo]

Hi Mark. I would email with a sample file to you.

Regards,
Colo