View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Gwen Gwen is offline
external usenet poster
 
Posts: 54
Default Applying Bottom and right border

Hi,
Please assist.
How do I put a bottom and right border on each cell in a range?
This is what I have for the bottom border.

Set rng = Range(Cells(Rows.Count, "A").End(xlUp), Range("l7"))

rng.Borders.LineStyle = xlNone
rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous
rng.Borders(xlEdgeBottom).LineStyle = xlContinuous

rng.Borders.LineStyle = xlNone
rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous
rng.Borders(xlEdgeLeft).LineStyle = xlContinuous

rng.Borders.LineStyle = xlNone
rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous
rng.Borders(xlEdgeRight).LineStyle = xlContinuous


Thanks