This will never fire, since Date will never equal Now + 30.

Instead of Now, you'd have to use a fixed date.

I'd also suggest that, in most cases, deleting the data from a third
party's machine is not a smart idea.


In article ,
wrote:

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