Mit Workbooks("Test.xls").Activate aktiviere ich meine Mappe in der ich arbeite.
Nun möchte ich gern alle anderen inaktiven Mappen schließen.
Gibt es hierfür auch einen Befehl?
Liebe Grüße Lisa
Sub alleZu()
Dim WB
For Each WB In Workbooks
Select Case UCase(WB.Name)
Case UCase("Personal.xlsb"), UCase(ActiveWorkbook.Name)
'tue nichts
Case Else
WB.Close
End Select
Next
End Sub
Sub CloseInActiveWorkbooks()
Dim WB As Workbook
For Each WB In Workbooks
If Not WB Is ActiveWorkbook Then WB.Close
Next
End Sub
Viele Grüße