how do i set up an expiry date in an Excel worksheet
 

I would like to know if there is a way to set up an expiry date in an excel
worksheet that lets you know when it is approaching a specific date.
Currently using Excel 2002

You could put this in the ThisWorkbook code module:

Private Sub Workbook_Open()
Const dtEXPIRED As Date = #6/5/2005#
Select Case dtEXPIRED - Date
Case Is < 0
MsgBox "This workbook has expired."
Case 0
MsgBox "This workbook expires today."
Case Is < 30
MsgBox "This workbook expires in " & _
dtEXPIRED - Date & " days."
Case Else
'do nothing
End Select
End Sub

This doesn't actually cause any changes in the workbook, however.

If you're unfamiliar with macros, see

http://www.mvps.org/dmcritchie/excel/getstarted.htm


In article ,
"AR Voice" <AR wrote:

I would like to know if there is a way to set up an expiry date in an excel
worksheet that lets you know when it is approaching a specific date.
Currently using Excel 2002

Here's a formula that lets you know when a specific date is approaching:

=IF((NOW()+5)<DATE(2005,6,14),"OK","Approaching a critical date")

When you get to within the critical time period, the value in the cell
changes.

--
Andy Wiggins FCCA
www.BygSoftware.com
Excel, Access and VBA Consultancy
-

"AR Voice" <AR wrote in message
...
I would like to know if there is a way to set up an expiry date in an
excel
worksheet that lets you know when it is approaching a specific date.
Currently using Excel 2002