Hallo,
Na het starten van deze macro word het nieuwe bestand niet (automatisch) gesloten.
Er word eerst gevraagd op je het bestand wilt opslaan en dat ie al bestaat of zo.
Waarschijnlijk omdat het bestand in een eerder stadium in deze code al opgeslagen is, kan dat aangepast worden zodat die vraag niet meer komt en het nieuwe bestand netjes gesloten word?
Na het starten van deze macro word het nieuwe bestand niet (automatisch) gesloten.
Er word eerst gevraagd op je het bestand wilt opslaan en dat ie al bestaat of zo.
Waarschijnlijk omdat het bestand in een eerder stadium in deze code al opgeslagen is, kan dat aangepast worden zodat die vraag niet meer komt en het nieuwe bestand netjes gesloten word?
Code:
Sub test2()
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & [A1] & [A2] & ".xls"
Workbooks.Open ThisWorkbook.Path & "\" & [A1] & [A2] & ".xls"
For lCt = ActiveWorkbook.Worksheets.Count To 1 Step -1
If Worksheets(lCt).Name <> "Logistiek dagbericht" And Worksheets(lCt).Name <> "Data Lev" Then
Worksheets(lCt).Delete
End If
Next
Application.DisplayAlerts = True
With ActiveWorkbook
.Close
End With
End Sub