hi again,
follow up:
this code will delete all data in the file after 30 days
you can add more sheets if you need. you can
increase/decrease the number of days if you like.

-----Original Message-----
in the on open event you can put a timer
if date()=now()+30 then
sheets("sheet1").select
cells.select
Selection.ClearContents
end if
range("A1").formulaR1C1 = "the data in this file has been
delete because it is out of date."
classic virus

-----Original Message-----
I have a workbook that I send out to third parties, I
want to limit its use
either by time or number of times opened- is this
possible? I want to guard
against out of date data being in circulation.
.

.