Close all files except the current active macro file.

[Vincent paul]

Hi,

I'm trying to close all the file except the macro file. But it closes all the files including macro file.
Any help / clarification would be appreciated.

Sub exceptwb()
Dim wb As Workbook
Application.DisplayAlerts = False
For Each wb In Workbooks
If wb.Name <> ThisWorkbook.Name Then
Workbooks.Close
End If
Next wb
Application.DisplayAlerts = True
End Sub

 

[My Aswer Is This]

Try this:

If wb.Name <> ActiveWorkbook.Name Then

 

[AbuTurab]

try to change

[COLOR=#333333]Workbooks.Close

to

[/COLOR]

[COLOR=#333333]wb.Close[/COLOR]

 

[Vincent paul]

It works fine..

Thanks a lot..

 

[AbuTurab]

We're welcome