Sub FindaDate()

Dim DateToFind As Date

'after you've copied and gone to the sheet to paste your date:

Range("A1").Select
ActiveSheet.Paste
Let DateToFind = ActiveCell.Value
Cells.Find(What:=DateToFind, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub