Timestamp a sheet

[eluehmann]

Yes... what I need is something that inserts a string but that does no
touch it again... ever. I figure I can use en option box to ask th
user if (s)he wants to update the date. If they say no end sub if the
say yes then go through with the date change. This seems to be mor
complicated then I first thought

 

[Paul B]

How about something like this then

Private Sub Workbook_Open()
If Sheets("sheet1").Range("A1").Value = "" _
Then Sheets("sheet1").Range("A1") = Date

Msg = "Do you want to change the data in cell A1 to today's date ?"
Title = "Change Date ?"
Response = MsgBox(Msg, vbYesNo + vbQuestion, Title)

If Response = vbNo Then
Exit Sub
End If

Sheets("sheet1").Range("A1") = Date

End Sub

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2000 & 2003
** remove news from my email address to reply by email **