On Mar 21, 2:25*pm, Mike H wrote:
Hmmm,

I forgot your message box

Private Sub Workbook_Open()
If Date Sheets("Sheet4").Range("AA1").Value + 14 Then
Sheets("Sheet1").UsedRange.ClearContents
Sheets("Sheet2").UsedRange.ClearContents
Sheets("Sheet3").UsedRange.ClearContents
MsgBox "File expired", vbInformation
End If
End Sub

Mike


One thing on above is that border lines and comments remain after
"ClearContents", how can I clear everything?