automatisches Speichern ohne Rückfrage

ich habe folgendes Makro verfasst:

Sub ArbeitsmappeSpeichern()
Dim s As String
Const LW = "n:\"
Const Pfad = "n:\Blp_mi_1\Af_blp\Sektoren - SXXP"
s = ActiveWorkbook.Name
ChDrive LW
ChDir Pfad
ActiveWorkbook.SaveAs FileName:=s, FileFormat:=xlNormal, password:="", writerespassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=True
End Sub

Ziel ist es die Arbeitsmappe zu speichern und eine Sicherungskopie zu erstellen. Jetzt kommt aber immer ein Fenster welches fragt ob die alte Datei überschrieben werden soll. Das soll sie auf jeden Fall. Wie kann ich das Erscheinen des Fensters unterdrücken?

Danke für die Hilfe

Grüße

Andy