すいません、もう1つ追加で教えてください^^;。
日付を変数として先ほどのものに与えるのはどうするんでしょうか？
Dim dt as Date
として
dt = 日付
Set target = Range("A3:A150").Find(What:=#dt#, LookIn:=xlValues, LookAt:=xlWhole)
とすると構文エラーになるんですが。