Sub test2()
myinp = (Application.InputBox("Enter a date"))
If IsDate(myinp) Then
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
inarr = Range(Cells(1, 1), Cells(lastrow, 13))
For i = 1 To lastrow
If myinp = CDate(inarr(i, 2)) Then
txt = inarr(i, 3) & " / " & inarr(i, 4) & " / " & inarr(i, 5)
MsgBox (txt)
Exit For
End If
Next i
End If
End Sub