Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("N1:N100")) Is Nothing Then
Range("N1:N100").Interior.Color = vbWhite
Target.Interior.Color = RGB(255, 255, 150)
End If
Fin:
End Sub