Insert date

[Shaggie]

I want to insert the date in a workbook when it is opened. but when i open it in a week i dont want the date to update.

 

[Boller]

but when i open it in a week i dont want the date to update

So when do you want it to be updated?
Not updated until seven days after the last update, or updated every time(if any) until seven days from the first opening?
If the latter, when the workbook is opened more than seven days after the last update, what do you want to happen?

 

[Shaggie]

i dont want the date to change ever.

i dont want the date to change ever.
what happens is i create a report and email it to my boss everyday and if i put the today() cmd in if he dont open it for a couple days when he opens it it has the current date and he is calling me wondering where the last 3 days reports are

 

[Boller]

Why don't you just either type the current date or press Ctrl+;

 

[Smitty]

Welcome to the Board!

You can use the Open event with a test to see if the date's already there:

<font face=Tahoma><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Workbook_Open()
    <SPAN style="color:#00007F">Dim</SPAN> rng <SPAN style="color:#00007F">As</SPAN> Range
        <SPAN style="color:#00007F">Set</SPAN> rng = Sheets("Sheet1").Range("A1")
        
        <SPAN style="color:#00007F">If</SPAN> LenB(rng) = 0 <SPAN style="color:#00007F">Then</SPAN> rng = <SPAN style="color:#00007F">Date</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Hope that helps,

Smitty