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