Some times we need to put outlines around the cells. Think you have adjacent cells which contains data. So if you put outline to those cells it will clearly separate the data. And it also gives a nice and neat look to your spread sheet. Below code will put outline around each and every cell of range "C3" to "C5".
|
dim WR as worksheet set WR=worksheets("Sheet1") WR.Range(Cells(3, 3), Cells(3, 5)).Borders.LineStyle = xlContinuous |
After running above code your spread sheet will look look below.
