Close all other workbooks but this one?

[ianripping]

If I have 3 workbooks open and I only want to have open (this) workbook
is there a way to make excel find the number of open worksheets an
close them all apart from this open one

 

[Harald Staff]

Sub test()
Dim WB As Workbook
For Each WB In Application.Workbooks
If WB.FullName <> Me.FullName Then WB.Close
Next
End Sub

As is it will ask "save changes ?" for each one.

HTH. Best wishes Harald

 

[Nikos Yannacopoulos]

Sub close_all_other_workbooks()
ThisWkbk = ActiveWorkbook.Name
For i = Workbooks.Count To 1 Step -1
If Workbooks(i).Name <> ThisWkbk And Workbooks(i).Name <> "Personal.xls"
Then
Workbooks(i).Close 'False
End If
Next
End Sub

Uncommenting the False switch will close without saving, using True instead
will save and close; as is, you will be prompted.

HTH,
Nikos

 

[ianripping]

Thanks, works great