Topluca Kenarlık rengi değiştirmek

[mustafagumrukcu]

Arkadaşlar, elimdeki excel dosyasında çeşitli şekillerde siyah renkte kenarlıkları olan bir dosya var. budosyadaki kenarlık renklerini topluca başka bir renge dönüştürmenin bir yolu varmıdır acaba?
Teşekkürler,

 

[security]

Option Explicit
Sub security()
    Range("A1:IV65536").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 3
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 3
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 3
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 3
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 3
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 3
    End With
    Application.CommandBars("Borders").Visible = False
    Range("A1").Select
End Sub

Bütün Hücrelerin Kenarlıklarını kırmızı yapar..