CopyAs wird 2x ausgeführt

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim strName As String
strName = "D:\outgoing\Minden" & Format(Now(), "dd_mm_yy")
ActiveWorkbook.SaveAs Filename:=strName, FileFormat:=xlCSV
Shell ("D:\FTPscript\ftp_upload.bat")
End Sub

...speichert die Datei 2 mal im csv-format. Zuerst vollautomatisch, und dann fragt Excel nach, ob es wirklich gespeichert werden soll, da im csv-format nur das aktuelle Datenblatt gespeichert werden kann, bla bla bla...

Wie kann ich diese 2. Speicherung verhinden. Wie man sieht führe ich danach eine batch aus, die so nicht korrekt arbeiten kann, da sie schon ausgeführt wird, bevor ich diese dämlichen Mitteilungen bekomme.

Danke