exit from excel?
Try:
Application.Quit
Mark J wrote:
how do i exit out of excel after running following code?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("WEDPg1").Select
Application.Run ("HistClient.xla!mnuConvertSheet")
Worksheets("WEDPg2").Select
Application.Run ("HistClient.xla!mnuConvertSheet")
Worksheets("WEDPg3").Select
Application.Run ("HistClient.xla!mnuConvertSheet")
Worksheets("WEDPg4").Select
Application.Run ("HistClient.xla!mnuConvertSheet")
Worksheets("WEDPg5").Select
Application.Run ("HistClient.xla!mnuConvertSheet")
Worksheets("WEDPg6").Select
Application.Run ("HistClient.xla!mnuConvertSheet")
Worksheets("WEDPg7").Select
Application.Run ("HistClient.xla!mnuConvertSheet")
DDate = Format(Now() - 1, "mmddyyyy")
ActiveWorkbook.SaveAs Filename:="" & DDate & ".xls"
ActiveWorkbook.Close
|