Im folgenden Beispiel wird die Farbe für den unteren Rand der Zellen A1:G1 festgelegt.
Worksheets("Sheet1").Range("a1:g1"). _ Borders.Item(xlEdgeBottom).Color = RGB(255, 0, 0)