Find... >= tDate

[PcMax]

Are you looking for something like this?

Sub DateJustRight()
  MsgBox Evaluate("MAX(IF((B7:B2500>=A4)*(B7:B2500<=B4),ROW(B7:B2500),))")
End Sub

Thank you very much for the control of dates