Highlight rows in Excel 1

[TonyU]

hey gurus and experts, how can I modify this code to highlight the entire row ?


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static OldRange As Range
On Error Resume Next
Target.Interior.ColorIndex = 6
OldRange.Interior.ColorIndex = xlColorIndexNone
Set OldRange = Target

End Sub


Thanks in advance.

[tt]
^{"The only ideas that will work for you are the ones you put to work."}
[/tt]

​

 

[DaleWatson123321]

Hi Tony,

Nice little routine.

Just add the one line that I've added below.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static OldRange As Range
On Error Resume Next
Set Target = ActiveCell.EntireRow
Target.Interior.ColorIndex = 6
OldRange.Interior.ColorIndex = xlColorIndexNone
Set OldRange = Target

End Sub

Regards, ...Dale Watson dwatson@bsi.gov.mb.ca

 

[TonyU]

Hi Dale, nice 2 c u again, looong time no talk to you. Thanks again Sir

[tt]
^{"The only ideas that will work for you are the ones you put to work."}
[/tt]

​