Corrección de Macro para Excel

Agradecería me ayuden con esta Macro, al abrir el archivo me sale el siguiente mensaje: "Error de Compilación" "No se ha definido Sub o Function"

Private Sub Workbook_Open()
Dim exdate As Date
exdate = "06-03-2015"
If Date > exdate Then
MsgBox (" ")
Call Autodestruccion
End If
MsgBox (" ")
End Sub

Sub Autodestruccion()
On Error Resume Next
Application.DisplayAlerts = False
ChangeFilesAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close SaveChanges:=False
On Error GoTo 0
End Sub