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.

[Mitch_s_s]

just recorded this an it works

Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

[Mitch_s_s]

its to do with the formatting of the cells too!

Cells.Find(What:=Format(Date, "d/m/yy"), After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate