Sub fasdf()Dim wb As ObjectFor Each wb In Workbooks If wb.Name <> ThisWorkbook.Name Then wb.Close True End IfNextThisWorkbook.Close TrueEnd Sub
