Suppose you like all EXISTING borders to be REd - select the whole range [NOT
the whole sheet] and run this Macro:
==============
Sub Micky()
For Each CL In Selection
If CL.Borders.LineStyle 0 Then CL.Borders.ColorIndex = 3
Next
End Sub
==========
Micky


"ralf" wrote:

I have different border colors in my sheet and i would like to make them all
the same. how can i do that without redrawing them all?
the same with color fill of a cell.