Exported from Notepad++

Sub Auto_Close()
　　　　ThisWorkbook.Close False
End Sub