Option Explicit
Sub FindName()
Dim i As Long
Dim lr As Long
Dim mMax As Date
Dim mMin As Date
Dim rng As Range, c As Range
lr = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To lr
Set rng = Range("B" & i & ":E" & i)
mMin = Range("H1")
mMax = Range("I1")
For Each c In rng
If c > mMin And c < mMax Then
Range("A" & i).Interior.ColorIndex = 3
End If
Next c
Next i
End Sub