To Highlight Active Row And Column

I found this code to highlight the active row. I tried to make it highlight the row and column, but I was not successful. What I really need is to highlight the active row and column above and to the left of the active cell, not the entire row and column. For example, if G10 is active, the highlighted cells would be G1:G10 and A10:G10.



Private Sub Worksheet_SelectionChange(ByVal Target As Excel. Range)
Dim i As Long
Cells.Interior.ColorIndex = xlColorIndexNone
If Application. CountA(Target.EntireRow) 0 Then
i = Target.Row
Else
For i = Me.UsedRange.Rows.Count To 1 Step -1
If Application.CountA(Me.Rows(i)) 0 Then
i = i + 1
Exit For
End If
Next i
End If
Rows(i).Interior.ColorIndex = 6
End Sub

Also, I have fill colors on the sheet and I just noticed that the code removes those fill colors. I need it to not remove my fill colors. The only fill colors it should remove are ones it previously colored.

• Highlight The Active Row
• Highlight Active Row
• Highlight Row Of Active Cell
• Highlighting Active Cell's Row, Along With Any Row That Shares Same Value In That Column
• Row/column Highlight
• Highlight Row And Column On Move Down Of Cell
• Highlight Row Range Based On Value In Another Column
• Moving Active Cell In Same Row To Column A
• Use Active Cell Row To Check Another Column
• Highlight Entire Row When Any Cell In 1 Column Contains Specific Value
• Highlight Cells Based On Row/Column Being Visible
• After Click On Button Move To Specified Column In The Active Row.
• Paste Formula To Specific Row In Active Column
• Set Variable To Row & Active Cell Column
• Highlight Differences Of Cells In Multi Column & Row Table
• Fill UserForms Controls Based On Active Cell/Row/Column
• Pick Data From A Specific Row/column (eg 10/B) Related To Active Cell
• Highlight Blank Cells Red In Column G If Not Blank In Column C (same Row)
• Print Active Cell Highlight
• Highlighting The Active Cell After A Highlight
• Change The Background Or Highlight (instead Of Bold Border) The Active Cell
• Highlight Row If Cells In Row Meet Multiple Conditions
• Insert Row On Sheet & Move Active Cell Row To It
• Insert Row At Active Cell With Formula From Fixed Row
• Evaluate Each Row And If The Last Value For That Row Is X, Then Highlight That Cell
• Highlight Row If Cell Value Exists In Row
• ACtiveCell.row: Active Row Is Empty
• Highlight A Row
• Highlight The Row ...
• Highlight The Row
• Highlight Every Other Row
• Highlight A Selected Row
• Highlight Row Cursor Is Currently In
• Highlight Row With Vlookup
• Automatic Row Highlight
• Highlight Every 5th Row
• Select / Highlight Every Other Row
• IF Statement To Highlight A Row
• Auto Highlight A Row
• Highlight Change In Row
• Use Active Row In A Formula
• Reference To Active Row
• Use Value Of Active Cell To Name Row
• Condition Format: Highlight Whole Row
• If Statement Highlight The Entire Row
• Highlight A Row Based On A Cell
• Auto Highlight All The Selected Row
• Highlight A Row Of Cells That Contain Same Date
• Highlight The Cell And All Of The Cells Along The Same Row
• Highlight Text And Numbers In Row