Change Cell Border Colors

  • Thread starter Thread starter That70sHeidi
  • Start date Start date
T

That70sHeidi

I have a very complicated form with merged cells, thick and thin lines,
dashes, etc. However, someone put all these borders in Navy!

How can I switch the whole document's border colors en masse?
 
This macro will change **every** cell with a border color to the new color
you designate...

Sub ChangeBorderColors()
Dim C As Range
Dim WS As Worksheet
For Each WS In Worksheets
For Each C In WS.UsedRange
If C.Borders.ColorIndex <> xlColorIndexNone Then
C.Borders.ColorIndex = 3
End If
Next
Next
End Sub

Change the example color index of 3 that I used (inside the If..Then block)
to the color index that you want **all** your existing borders set to.
 
Back
Top