To search only column B (for example), maybe something like:
Columns("B:B").Select
Set rCell = Selection.Find(What:=CDate(strdate), After:=Range("B5"), _
LookIn:=xlFormulas, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
rCell.Select
RowNo = ActiveCell.Row