If I run the following code (which colours unlocked cells) and
many contiguous cells become coloured, then it becomes a little
difficult to orientate within the sheet:

For Each c In .UsedRange.Columns("A:G")
For Each cell In c.Cells
With cell
If Not cell.Locked = True Then
'User is permitted to edit this cell, so color it:
With cell
.Interior.ColorIndex = 34
End With
End If
End With
Next cell
Next c

What are the correct statements please, that will format just the
top and bottom borders of each coloured cell to the default
(feint) Xl style?

Regards.



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.692 / Virus Database: 453 - Release Date: 28/05/2004