cut paste will not work

[waltron]

hello
i have a code that searches column B for data entered in textbox, when the data is located it highlights active row yellow, i then added the following code so that when i changed from highlighted cell the row changed back to no fill. it worked but now i can not cut and paste within the sheet? can this be fixed.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("$B:$I").Interior.ColorIndex = xlNone
Intersect(Target.EntireRow, Range("$B:$I")).Interior.ColorIndex = xlNone
Range("B5:I5").Interior.ColorIndex = 34
Range("B9:I9").Interior.ColorIndex = 35
End Sub

 

[SkipVought]

Hi,

That's just the way that the SelectionChange event works.

Try instead, writing a value to an unused column on the found row, and using the conditional formatting feature to change the shading, rather than SelectionChange.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}