Check for today's date and highlight

Private Sub Workbook_Open()

Sheets("dates").Activate
Cells.Find(Date).Activate
Rows(ActiveCell.Row).Select

End Sub

Hi people,

I would like to use a event handler in a workbook of mine. The workbook contains dates for almost every day. I would like excel to highlight the row for today's date.

I figured how to create it, but i am stuck in the case where there is no data for today. Say i have Jan1, Jan2 then Jan4. So if i open the book on Jan3 it would give an error. In that case i would like excel to highlight Jan4.

Any help will be useful..

Thanx..