close all inactive workbooks

[still learning]

Hi

Excel 2010
I'm trying to close any inactive workbooks using a macro.
I can't get this to work. The name of the workbook that I want to keep open is

"C:\Excel\New Menu v2.xlsm"

Sub CloseAllSheetsExActive()
Dim WBs As Workbook
For Each WBs In Application.Workbooks
If Not WBs.Name = New Menu V2.xlsm
Then WBs.Close =True
Next WBs
End Sub

Mike

 

[tusharm]

Untested:

If Not WBs.Name = "New Menu V2.xlsm" Then WBs.Close

Note the double quotes, the fact that the entire statement is on a single line, and that Close is a method not a property.

Also, you may get a UI interrupt asking if you want to save a file or not. You can deal with that by providing the appropriate parameter to the Close method. See Excel VBA help for more.

Hi

Excel 2010
I'm trying to close any inactive workbooks using a macro.
I can't get this to work. The name of the workbook that I want to keep open is

"C:\Excel\New Menu v2.xlsm"

Sub CloseAllSheetsExActive()
Dim WBs As Workbook
For Each WBs In Application.Workbooks
If Not WBs.Name = New Menu V2.xlsm
Then WBs.Close =True
Next WBs
End Sub

Mike

 

[still learning]

Hi tusharm

Thanks


Mike