Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Or Target.Column = 2 Then
  r = Target.Row
  If Cells(r, 1) = "" Then
     Exit Sub
  End If
     Range(Cells(r, 3), Cells(r, 34)).Select
     Selection.Interior.ColorIndex = xlNone
     Cells(r, 3).Select
    For j = 3 To 34
       hiz = Cells(r, j)
       If Cells(r, 1) <= hiz Then
           If hiz <= Cells(r, 2) Then
                Cells(r, j).Interior.ColorIndex = 3
           Else
              Exit For
           End If
       End If
   Next
End If
End Sub