How to quickly close all workbooks except active one?
If there are multiple workbooks opened in your computer, and now, you want to close all but leave the active one. Are there any quick ways for you to deal with this job except closing the other workbooks one by one? This article, I will talk about some easy ways for you to solve it with one click.
With the following VBA code, you can quickly close all opened workbooks except the active one, please do as this:
1. Activate your workbook which you want to keep open.
2. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.
3. Click Insert > Module, and paste the following code in the Module Window.
VBA code: Close all workbooks except active one
Private Sub CloseOtherWorkbook() 'Update 20141126 Dim xWB As Workbook Application.ScreenUpdating = False For Each xWB In Application.Workbooks If Not (xWB Is Application.ActiveWorkbook) Then xWB.Close End If Next Application.ScreenUpdating = True End Sub
4. Then press F5 key to run this code, and then all the other workbooks have been closed at once, but leave only the active one.
If you are interested in a new product - Office Tab, it can help you to open multiple documents / files in a single tabbed window, with it, you can close all workbooks but leave active one with one click. You can know more and down load the Office Tab from here.
After installing Office Tab, you will see all the opened workbooks are displayed in one single tabbed window, see screenshot:
Then click the workbook name you want to leave opened, and right click the name tab, then choose Close Other from the context menu, see screenshot:
And then, you can see only your active workbook is opened.
Best Office Productivity Tools
Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time. Click Here to Get The Feature You Need The Most...
Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier
- Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
- Open and create multiple documents in new tabs of the same window, rather than in new windows.
- Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!