Position row to current date

I have a spreadsheet that has all of the days of the year in cells A1 to A1000 (i.e. A1= 1/1/2001, A2=1/2/2001, A3=1/3/2001, etc.).

I am trying to create a macro behind a pushbutton that will automatically position the spreadsheet to the cell that has the current date (Todays date).

So if today was January 15th, by pressing the button the macro will put the curson on the date that is equal to todays date.

Thanks for any info.