Let\'s say that I have the following trivial task:
Not sure why it is finding 1 November, but you can fix it by specifying a value for the optional LookAt argument of the Find() method:
Set foundRange = Rows(1).Find(CDate("01.01.2016"), Lookat:=xlWhole)