<div>
You can use the following code..This will close all the workbooks..leaving the workbook open from which you are running this code..please change it basis of your requirement..<br />
<br />
Also the workbooks it's closing it will save changes in them..<br />
<br />

<pre><code id="code-20-40697058-1">    Dim wb As Workbook

    For Each wb In Workbooks

        If wb.Name &lt;&gt; ThisWorkbook.Name Then wb.Close (True)


    Next wb</code></pre>
<br />
Saurabh...
</div>


You can use the following code..This will close all the workbooks..leaving the workbook open from which you are running this code..please change it basis of your requirement..

Also the workbooks it's closing it will save changes in them..



    Dim wb As Workbook

    For Each wb In Workbooks

        If wb.Name <> ThisWorkbook.Name Then wb.Close (True)


    Next wb


Saurabh...

<div>
Sorry, that's not it, I am referring to closing open windows within the workbook, not closing the workbook itself.
</div>


Sorry, that's not it, I am referring to closing open windows within the workbook, not closing the workbook itself.

<div>
Thank you, works perfectly!
</div>


<div>
<div class="content wysiwyg-content">
Hello experts,<br />
<br />
I have a multiple monitor setup, and trying to close all windows except a specific one.<br />
So assuming the sheets open are in:<br />
Windows(&quot;Monitors.xlsm:1&quot;)<wbr /><br />
Windows(&quot;Monitors.xlsm:2&quot;)<wbr /><br />
Windows(&quot;Monitors.xlsm:3&quot;)<wbr /><br />
<br />
How do I replace the “Monitors.xlsm” with the current file name?<br />
Make Windows(&quot;CurrentfileName.x<wbr />lsm:1&quot;) the active window?<br />
and then close Windows 2 &amp;&nbsp;3?<br />
<br />
Thanks,<br />
biker9
</div>
</div>


Hello experts,

I have a multiple monitor setup, and trying to close all windows except a specific one.
So assuming the sheets open are in:
Windows("Monitors.xlsm:1")
Windows("Monitors.xlsm:2")
Windows("Monitors.xlsm:3")

How do I replace the “Monitors.xlsm” with the current file name?
Make Windows("CurrentfileName.xlsm:1") the active window?
and then close Windows 2 & 3?

Thanks,
biker9

Excel 2013 vba multiple monitor configuration, close all windows except a specific one

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

A monitor or a display is an electronic visual display for computers, usually comprised of the display device, circuitry, casing, and power supply. The display device in modern monitors is typically a thin film transistor liquid crystal display (TFT-LCD) thin panel, while older monitors used a cathode ray tube (CRT) about as deep as the screen size. They are connected to the computer via VGA, DVI, DisplayPort, Thunderbolt, LVDS or other proprietary connectors and signals.

Displays / Monitors

VBScript (Visual Basic Scripting Edition) is an interpreted scripting language developed by Microsoft that is modeled on Visual Basic, but with some important differences. VBScript is commonly used for automating administrative and other tasks in Windows operating systems (by means of the Windows Script Host) and for server-side scripting in ASP web applications. It is also used for client-side scripting in Internet Explorer, specifically in intranet web applications.

VB Script

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.