rng.Borders(xlEdgeBottom)
where the border can be xlDiagonalDown, xlDiagonalUp, xlEdgeBottom,
xlEdgeLeft, xlEdgeRight, xlEdgeTop, xlInsideHorizontal, or xlInsideVertical.
Look at Border Object in VBA help.
--
HTH
Bob Phillips
(replace xxxx in the email address with gmail if mailing direct)
