Sub one()

Dim myDate As Date, myCell As Object

myDate = Date
    Set myCell = ThisWorkbook.Sheets("2").Range("B:B").Find( _
                        what:=DateValue(myDate), _
                        LookIn:=xlValues, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False)
    If Not myCell Is Nothing Then
        MsgBox myCell.Row
        Exit Sub
    End If
End Sub