I have a macro that will close all open workbooks, works great. Now I
would like to have this macro close all open workbooks except one
specific files, KeyWest.xls. The below code works and I imagine a
simple IF Then sort of statement might solve my problem but I cannot
figure it out. Thanks for any help!

Ryan

Public Sub CloseAll()

Dim WB As Workbook

SaveAll
For Each WB In Workbooks
If Not WB.Name = ThisWorkbook.Name Then
WB.Close SaveChanges:=True
End If
Next WB

ThisWorkbook.Close SaveChanges:=True
End Sub


---
Message posted from http://www.ExcelForum.com/