ActiveWorkbook.Close

Michael Pettinicchi · Apr 12th, 2002, 10:44 AM

I have the following code in the "Workbook" of "ThisWorkbook". It works if I open the file directly, i.e., it does the job and closes. But, if I open the file via another Excel file, it doe the job but doesn't close. What's wrong?

Private Sub Workbook_Open()
Application.EnableCancelKey = xlDisabled
Range("a5").Select
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Sheets("Sheet1").Activate
ActiveWorkbook.Activate
ActiveWorkbook.Close
End Sub

Thanks
Michael

Al Chara · Apr 12th, 2002, 10:55 AM

Change ActiveWorkbook to ThisWorkbook.

Apr 12th, 2002, 10:55 AM	#2
Al Chara MrExcel MVP Join Date: Feb 2002 Location: Monterrey, Mexico Posts: 1,433	Change ActiveWorkbook to ThisWorkbook. __________________ Kind regards, Al Chara

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 12th, 2002, 10:44 AM	#1
Michael Pettinicchi Board Regular Join Date: Apr 2002 Posts: 53	I have the following code in the "Workbook" of "ThisWorkbook". It works if I open the file directly, i.e., it does the job and closes. But, if I open the file via another Excel file, it doe the job but doesn't close. What's wrong? Private Sub Workbook_Open() Application.EnableCancelKey = xlDisabled Range("a5").Select Application.CommandBars("Worksheet Menu Bar").Enabled = True Sheets("Sheet1").Activate ActiveWorkbook.Activate ActiveWorkbook.Close End Sub Thanks Michael