求保存并关闭除当前工作簿之外的工作簿的程序

Sub CloseAllWB()
Dim wb As Workbook
If Workbooks.Count > 1 Then
    For Each wb In Workbooks
        If wb.Name <> ThisWorkbook.Name Then
            wb.Close True
        End If
    Next
End If
End Sub