View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
Kris
 
Posts: n/a
Default which line mercy script

Art wrote:
nastech,

I don't know if there's a formula. However, you could put the following
macro in the Sheet you're working with:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static mRow As Long
If mRow < 0 Then
Rows(mRow).Interior.ColorIndex = xlNone
End If
mRow = Target.Row
Rows(mRow).Interior.ColorIndex = 56
End Sub


What if cells have interior.colorIndex set?

I propose to use xor to change colorindex value.

Rows(mRow).Interior.ColorIndex = Rows(mRow).Interior.ColorIndex xor 8