Date Change

[Ben Allen]

Hi,
When a user clicks a button on my worksheet a macro is run. This macro sets
a cell on a hidden sheet to be the current date. On Auto_open this date is
checked, if the current date is the cell value + 7 a message box is
displayed sayin "It is a week since you....". Is it possible to do instead
of + 7, + 1 month, as you cannot do +30 or +31 due to the varying days in a
month. Any suggestions?
Thanks
--
Cheers,
Ben

Remove your.tonsils to reply
"You only live once but if you do it right once is enough!"

 

[JE McGimpsey]

One way:

Use DateDiff

If DateDiff("m", Sheets("hidden").Range("A1"), Date) > 1 Then _
MsgBox "More than a month"