How to jump to a cell based on date upon open

[country101]

I am creating a spreadsheet to keep track of overtime. I have names, totals, days of year, etc frozen. The days of the year are ranged from D3:ND3

I want the spreadsheet to activate, upon open, the cell with today's date so that I dont have to scroll around to be able to enter the overtime for the week. I have a macro to activate a specific cell, but I dont know how to make it look for anything else.

Here's what I thought I would base the macro off of:

Sub Workbook_Open()
Me.Sheets("Sheet1").Activate
ActiveSheet.Range("d5").Activate
End Sub

That may be oversimplified, but if you could look it up with a "today" formula it would be easy. But I dont know how VBA works exactly so it may not be that easy.