Testing a date

[smund]

I need to do a macro that returns if the activecell is today.
Thanks

 

[Smitty]

Like this:

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> foo()
    <SPAN style="color:#00007F">If</SPAN> ActiveCell = <SPAN style="color:#00007F">Date</SPAN> <SPAN style="color:#00007F">Then</SPAN>
        MsgBox "Yup"
    Else: MsgBox "Nope"
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

HTH,

Smitty