Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:AO2000").Interior.Color = xlNone
For i = 1 To 2000
If Cells(i, 41) = "Test1" Then Range("A" & i & ":AO" & i).Interior.ColorIndex = 15
If Cells(i, 10) = "Test2" Then Range("A" & i & ":AO" & i).Interior.ColorIndex = 4
Next
End Sub