Rahmen per VBA einfärben

Sub FormatFarbeSchwarz()
' Überschrift mit schwarzem Hintergrund, weißer Schrift, fett, oben, mittig, Rahmenfarbe innen  _
weiß
' Makro am 20.05.2009 von nico.schultz aufgezeichnet
'--- Schrift formatieren
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
End With
With Selection.Font
.Name = "Arial Narrow"
.FontStyle = "Fett"
.Size = 12
.Color = RGB(255, 255, 255)
End With
'--- Hintergrund formatieren
With Selection.Interior
.Color = RGB(0, 0, 0)
End With
'--- Trennlinien formatieren
If Selection.Columns.Count > 1 Then
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.Color = RGB(255, 255, 255)
End With
End If
If Selection.Rows.Count > 1 Then
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.Color = RGB(255, 255, 255)
End With
End If
End Sub

Bei Ausführung soll also der Zellhintergrund schwarz gefärbt werden und Linien und Schrift weiß.
Der Hintergrund ist nach Ausführung schwarz und die Schrift weiß. Nur die Linienfarbe stimmt nicht.
Hat evtl. jemand eine Idee, woran das liegen könnte?
Danke für eure Hilfe!
Grüße,
Nico