Why not use Borders? They don't require absolute positioning.
oBT = oSheet.RANGE("A71", "J71").Borders(xlEdgeTop)
oBT.Weight = xlThin
oBT.LineStyle = xlContinuous
...
oBB = oSheet.RANGE("A71", "J71").Borders(xlEdgeBottom)
...
oBT = NULL
oBB = NULL
>
>I prefer using the Addline() Method to put a line on Top and another on the Bottom of cells that show Totals. This time the cell that will hold the total is Dynamic (depending on the number of entries) and therefore is not pre-defined. If I know the Cell address and its width, is it possible to know the BeginX, Beginy, EndX, EndY positions that can place the line as explained above ?
>
>
--sb--