Skip to main content

How to quickly close all workbooks except active one?

Author: Xiaoyang Last Modified: 2014-11-28

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

arrow blue right bubble 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
    End If
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.

arrow blue right bubble 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

🤖 Kutools AI Aide: Revolutionize data analysis based on: Intelligent Execution   |  Generate Code  |  Create Custom Formulas  |  Analyze Data and Generate Charts  |  Invoke Kutools Functions
Popular Features: Find, Highlight or Identify Duplicates   |  Delete Blank Rows   |  Combine Columns or Cells without Losing Data   |   Round without Formula ...
Super Lookup: Multiple Criteria VLookup    Multiple Value VLookup  |   VLookup Across Multiple Sheets   |   Fuzzy Lookup ....
Advanced Drop-down List: Quickly Create Drop Down List   |  Dependent Drop Down List   |  Multi-select Drop Down List ....
Column Manager: Add a Specific Number of Columns  |  Move Columns  |  Toggle Visibility Status of Hidden Columns  |  Compare Ranges & Columns ...
Featured Features: Grid Focus   |  Design View   |   Big Formula Bar    Workbook & Sheet Manager   |  Resource Library (Auto Text)   |  Date Picker   |  Combine Worksheets   |  Encrypt/Decrypt Cells    Send Emails by List   |  Super Filter   |   Special Filter (filter bold/italic/strikethrough...) ...
Top 15 Toolsets12 Text Tools (Add Text, Remove Characters, ...)   |   50+ Chart Types (Gantt Chart, ...)   |   40+ Practical Formulas (Calculate age based on birthday, ...)   |   19 Insertion Tools (Insert QR Code, Insert Picture from Path, ...)   |   12 Conversion Tools (Numbers to Words, Currency Conversion, ...)   |   7 Merge & Split Tools (Advanced Combine Rows, Split Cells, ...)   |   ... and more

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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
can the macro be modified to close microsoft publisher files
There are no comments posted here yet
Leave your comments
Posting as Guest
Rate this post:
0   Characters
Suggested Locations