Workbook überschreiben

habe folgendes Script (Auszug):

Workbooks.Add
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.......'nicht relevant
End With
ActiveWorkbook.SaveAs Filename:="D:\KalkulationKA.xls", FileFormat:=xlNormal

Da die Datei jedesmal auf den gleichen Pfad und Namen hin gespeichert wird kommt ab dem 2.ten mal die Frage, ob die existierende überschrieben werden soll. Ich bräuchte nun den Befehl das es immer überschrieben wird ohne nachzufragen!

Thanx im voraus.