Neste site voce encontra uma coleção de macros
VALIDAÇÃO PLANILHA P/ EXPIRAR EM 30 DIAS

Private Sub Workbook_Open()
Dim stPass As String
Dim stDate As String
Dim wsSheet As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
Sheets.Add().Name = "DateChecker"
If ActiveSheet.Name <> "DateChecker" Then ActiveSheet.Delete
Sheets("DateChecker").Visible = xlVeryHidden
If Sheets("DateChecker").Range("A1") = vbNullString Then
   Sheets("DateChecker").Range("A1") = Date
   Me.Save
End If
If Sheets("DateChecker").Range("A1") + 30 < Date Then
   Sheets.Add before:=Sheets(1)
       For Each wsSheet In Me.Worksheets
             If wsSheet.Index <> 1 Then wsSheet.Delete
        Next wsSheet
        Application.DisplayAlerts = True
        Me.Save
End If
End Sub
EXPLICAÇÃO:
Mande inserir uma plan na sua Planilha, depois voce
renomeia ela para DateCheker, Vai na celula A1 e colo-
que a data que voce quer começar a validação.
Vá no codigo VBA e insira um modulo.
Copie o Código completo da esquerda para o Modulo.
Salve o Modulo.
Pronto, a partir da data de validação  30 dias a planilha
vencerá e apagará quae a planilha inteira.