Hello everybody
I have this code that highlight activecell's row and column .. The problem is that it removes interior colors of the cells and I can not color the bakground of any cell ..
can the code be edited to keep interior colors and to enable me to color the background of any range..
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rowNumberValue As Integer, columnNumberValue As Integer, i As Integer, j As Integer
Cells.Interior.ColorIndex = 0
rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column
For i = 1 To rowNumberValue
Cells(i, columnNumberValue).Interior.ColorIndex = 37
Next i
For j = 1 To columnNumberValue
Cells(rowNumberValue, j).Interior.ColorIndex = 40
Next j
End Sub
Bookmarks