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.
Close all workbooks except active one with VBA code
Close all workbooks except active one with Office Tab
Close all workbooks except active one with VBA code
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.
Close all workbooks except active one with Office Tab
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.
Related article:
How to quickly close all workbooks in Excel?
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!
