Using Today() Function prompts a Save Dialog

Hi,

I read that Today(), Now() and other similar functions are volatile functions. In my project, I have a cell, A1, containing this formula:

=IF(B1<>"", IF(A1="", Today(), A1), "")

And if you add anything to B1, then A1 will fill in today's date.

So I was wondering, if it is possible to create a vba that would not prompt a save dialog when the sheet is blank or no other value had been added to the sheet, but save automatically if say B1 or other cells contains a value. I was also hoping to add something like this in a beforeClose Event.

Thank you!!