Sub KillWBs() 'I'm crazy and want to loose all my changes
Dim WB as Workbook
Dim File1 as Workbook
Set File1 = ActiveWorkbook
For each WB in Application.Workbooks
if WB.Name = "Workbook 2" or WB.Name = File1.Name then
'Don't Close
Else
WB.Close False
End If
Next

Die_Another_Day