Macro to close all workbooks except active workbook and one other named workbook

Hello,

I have this code that closes all workbooks, except the active one.

Sub Close_Non_Active_Workbooks()

Dim WB As Workbook

For Each WB In Workbooks
If Not (WB Is ActiveWorkbook) Then WB.Close
Next

End Sub


I have a file called "My Macros" that I have open to run quite a few reports, so I would like to adjust the above code.
I would like a code that will close all workbooks except the active one and the workbook called "My Macros"

Any help would be appreciated.

Jonathan.

Thank you michson,

Your code was exactly what I needed.

Hello kev,

Your interpretation was correct, the macro was in the file called "My Macros".
Your code did exactly what I needed.

Thank you