I have a fairly large macro that is supposed to compile all of our stock data into a catalog. The very last bit is supposed to add a border around the bottom of each page at the page break. However on the 12th page and the 50th page, the thick border is always off by one line and I cant figure out why, there is nothing in the code after the borders are set that change the size of any of the text or columns, so I cant see why the border would end up in the wrong place. Below is the code I use to set the page borders. 

   For i = 1 To Sheet1.HPageBreaks.Count
        With Range(ActiveSheet.HPageBreaks(i).Location.Address).Columns("A:K").Borders(xlEdgeTop)
            .LineStyle = XlLineStyle.xlContinuous
            .Weight = xlMedium
            .color = RGB(0, 0, 0)
        End With
    Next
If you have any ideas I'd really love to hear them, thanks.