Bestätigung zum Speichern in Makros

Hallo zusammen,

als Einsteiger der Makroerstellung habe ich folgende Frage:

Wenn ich folgendes Makro betrachte:

 Workbooks.OpenText Filename:="L:\Programm-A.xls", 
 Cells.Select
 Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("B1") \_
 , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= \_
 False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 \_
 :=xlSortNormal
 Range("I1").Select
 Selection.Copy
 Windows("Programm-B.xls").Activate
 Sheets("Tabelle2").Select
 Range("BQ27").Select
ActiveSheet.Paste
Windows("w-tagum.txt").Activate
ActiveWindow.Close 

mir geht es eigentlich nur um die letzte Zeile, wo das System nämlich fragt, ob die Änderungen gespeichert werden sollen, was meinerseits aber immer verneint werden soll. Wie kann ich das Makro ändern/ergänzen, so dass bei activewindow.close die Frage nach dem Speichern der Änderungen automatisch verneint wird?

Danke im Voraus
Marc

Hallo,

setze

 ThisWorkbook.Saved = True

Gruß, Bernd

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Ergänzung
Hallo
Zuerst vorgeben, es sei schon gespeichert:

ThisWorkbook.Saved = True

und dann schliessen

ThisWorkbook.Close

Erich