Excel Vba Expire Date Close file code

Example Code:-(below copy and Paste)








Private Sub Workbook_Open()
Dim Edate As Date
Edate = Format("22/05/2019", "DD/MM/YYYY") ' Replace this with the date you want
If Date > Edate + 2 Then
MsgBox "This workbook is NOT Missing code  !", vbCritical

ActiveWorkbook.Close
 End If

End Sub