Sub Main()
Dim d1 As Date, d2 As Date, d3 As Date
Dim f1 As Range, f2 As Range, f3 As Range
d1 = #5/11/2018#
d2 = #11/11/2018#
d3 = Date
On Error GoTo TheEnd
Set f1 = Columns("A:B").Find(d1)
Set f2 = Columns("A:B").Find(d2)
Set f3 = Range(f1, f2).Find(d3)
Range(Cells(f3.Row, "A"), Cells(f3.Row, "B")).Interior.Color = vbBlue
Application.Goto f3
TheEnd:
End Sub