Borders Property Example
This example sets the color of the bottom border of cell B2 on Sheet1 to red.
With Worksheets("Sheet1").Range("B2").Borders(xlBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 3 End With