S
Stuart
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.
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.