Private Sub Workbook_BeforeClose(Cancel As Boolean)
'ActiveWindow.DisplayGridlines = True
'ActiveWindow.DisplayHeadings = True
'ActiveWindow.DisplayHorizontalScrollBar = True
'ActiveWindow.DisplayWorkbookTabs = True
'Application.DisplayFullScreen = False
'Application.DisplayFormulaBar = True
'Application.DisplayStatusBar = True
'Application.WindowState = xlMaximized
'Application.ScreenUpdating = True
Debug.Print ChClose
'Dim ChClose$
'ChClose = ActiveWorkbook.Path & "\"
'Call Shell(Environ$("COMSPEC") & " /k" & ChClose & "Close.bat", vbNormalFocus)
'Application.Quit
End Sub