Returns a Borders collection that represents the borders of a style or a range of cells (including a range defined as part of a conditional format).
Syntax
expression.Borders
expression A variable that represents a Range object.
Example
This example sets the color of the bottom border of cell B2 on Sheet1 to a thin red border.
Sub SetRangeBorder()
With Worksheets("Sheet1").Range("B2").Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 3
End With
End Sub