Find time value in VBA

For the life of me can't figure this one out.

In Column A one of the values is 2:33:30 PM

In Range("D1") 2:33:30 PM

How come the code below will not find the value in column A?

I changed the value in D1 to the number 2 and placed a 2 in Column A and it finds the 2, just having no luck with a time.

Set Found = Columns("A").Find(what:=Range("D1").Value, LookIn:=xlValues, LookAt:=xlWhole)
Found.Address

Any thoughts?