Highlighting entire row
Hi all
I've tried the code and it works more beautifull when you write it like
this:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldRange As Range
On Error Resume Next
OldRange.EntireRow.Interior.ColorIndex = xlColorIndexNone
Target.EntireRow.Interior.ColorIndex = 6 ' yellow - change as needed
Set OldRange = Target
End Sub
First change the oldrange to None and than change the newrange to
yellow.
Otherwise there is a problem when the new range contains the old range
(for example old range = B4 and new range = B2:B6). Then the old range
is set to blank after the new range is yellow.
Grtz,
Jzz
|