closing multiple workbooks at once

[Sam05]

Hello,

I've been trying to get the right code to close multiple workbooks from inside a macro, using a FOR loop. I have say Book1.xls ... Book10.xls and I want to substitute the numeral in the following code by the i-th value but haven't been able to:

For i = 1 To 10
Windows("Book1.xls").Activate
ActiveWorkbook.Close
Next i

Please help with the code...

 

[Sam05]

Someone please help,

I'm opening the wkbks with:

For i = 1 To 10
Workbooks.Open Filename:="C:\My Documents\Book" & i & ".xls"
Next i

which works ok, but nothing similar to close them.

FYI, there are more xls files in the folder.

 

[jindon]

try

For i = 1 To 10
    Workbooks("Book" & i & ".xls").Close Ture
Next

 

[c_m]

It seems like you are opening all those files in one instance of excel. Why dont you just click on the red X at the top right corner of excel? This will close all the excel files opened in that instance.

 

[Sam05]

jindon,

tried your suggestion but doesn't do anything.... files are still open, no error messages or nothing.

Any idea?

 

[jindon]

jindon,

tried your suggestion but doesn't do anything.... files are still open, no error messages or nothing.

Any idea?

No error ? even typo ?

For i = 1 To 10
    Workbooks("Book" & i & ".xls").Close True
Next

or try

Workbooks.Close

 

[Sam05]

well, I fixed the True since the begining, that's why "no errors".

Workbooks.Close does close ALL my workbooks; I want to keep open the one from where I execute the macro.

Almost there, what else can I try?

 

[jindon]

Then try

Dim wb As Workbook
For Each wb In Workbooks
    If wb.Name <> ThisWorkbook.Name Then wb.Close True
Next

 

[Sam05]

Wohaa!! Got it!! Thanks jindon...