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