Take a look at this:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim v As Variant
v = Array(xlEdgeBottom, xlEdgeTop, xlEdgeRight, xlEdgeLeft)
For Each r In ActiveSheet.UsedRange
With r
For i = 0 To 3
..Borders(v(i)).LineStyle = xlNone
Next
End With
Next

For i = 0 To 3
With ActiveCell.Borders(v(i))
..LineStyle = xlContinuous
..Weight = xlThick
..ColorIndex = 7
End With
Next
End Sub



Right-click on the tab and paste the code into the window that opens.


Regards,
Ryan---



--
RyGuy


"Dave Peterson" wrote:

You may want to try Chip Pearson's Rowliner:
http://www.cpearson.com/excel/RowLiner.htm

Jeanne wrote:

Is it possible to change the working cell border color as you move around in
your spreadsheet to find your place easily?

--

Dave Peterson