Search for a date that is in the first couple of rows and 
Dim i As Long