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