Macro - Jump To Today On Worksheet

[Pariah07]

im trying find a simple macro or vba code that when ran it will jump to todays date on the excel worksheet. something basic w/

Sub Today_Find() 
     
    <find todays date!> 
     
End Sub

i need to be able to search within formulas, as all the dates in all the workbooks are set up like this, the the layout is not in a single column:

Each cell
1/1/07
=above cell+1
=above cell+1
=above cell+1
=above cell+1
=above cell+1
=above cell+1...

I tryied this

Sub FindDate() 
    Dim c As Range 
     
    Set c = ActiveSheet.Cells.Find(what:=Date, LookIn:=xlValues) 
    If Not c Is Nothing Then c.Select 
     
End Sub

but it only is picking up a typed in date. for example if today was 1/1/07 and the macro was ran it would find it, but for all the other days they contain a formula which is not being found when macro is run.