Macro to expire code?

[HotLanta]

Hello,

I thought I had read before some code that would make a macro cease to run after a set date. How can I do that?

Thanks in advance.

 

[Peter_SSs]

HotLanta

Perhaps something like this?

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> Expired()

    <SPAN style="color:#00007F">If</SPAN> Now() > DateValue("05/09/2006") <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
    
    <SPAN style="color:#007F00">' Your macro here</SPAN>
    
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>