Getting Cell Address Of Each Page Within a Print Range

[Ark68]

I use this code to set up my print area ...

With ws_front.PageSetup
        .PrintArea = "$J7:BM" & lr
        pgnums = .Pages.Count
    End With

Is there a way I can compile the cell address of each page? I want to loop through each page and get the interior colour of the cell offst by 6 rows and 8 columns) from the top left corner of the page.

 

[bobsan42]

ws_front.HPageBreaks(1).Location 'this will return a range object (cell) just after the first horisontal pagebreak

ws_front.HPageBreaks(1).Location.Address 'and this is the address

ws_front.HPageBreaks(ws_front.HPageBreaks.Count-1).Location ' this is the top left cell of the last page - unless you have multiple column print layout

change the 1 to check the next page breaks
use VPageBreaks(index) for the vertival page breaks if any