Speichern, obwohl Datei existiert

hab folgenden Codeschnipsel:

ActiveWorkbook.SaveAs FileName:=Dateiname, FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

Funktioniert auch, solange die Datei noch nicht existiert. Wie kann ich mir die Meldung "Überschreiben?" anzeigen lassen, oder wie fange ich das ab?

Viele Grüße aus Darmstadt,

Ron Andres