View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Nick Nick is offline
external usenet poster
 
Posts: 39
Default To have an entire row highlighted to some color if any cell in that row is selec

Can someone help me please? I'm trying to find a way to
have an entire row highlight to some color if any cell in
that row is selected.
I have the following information (not sure if it is
correct), but I have no idea how to use it. Is it a macro?
visual basic? Help!

Private Sub Worksheet_SelectionChange(By Val Target As
Excel.Range)
Static oldRange as Range
Static colorIndices(256) As Integer
Dim i As Integer
If Not oldRange Is Nothing Then 'Restore color indices
For i=1 to 256
Cells(oldRange.row,
i).Interior.ColorIndex=colorIndices(i)
Next i
End If
For i = 1 to UBound(colorIndices)
colorIndices(i)=Cells(ActiveCell.row,i).Interior.C olorIndex
Next i
ActiveCell.EntireRow.Interior.ColorIndex=15
Set oldRange=ActiveCell.EntireRow
End Sub

Thank you!