Office: (Office 2016) Speichern unter fragt nicht nach überschreiben bei vorhandener Datei

Hallo zusammen,

ich komme bei folgendem Problem nicht weiter und würde mich über eure Unterstützung freuen.
Ich habe folgenden Code, der beim Klick auf eine Schaltfläche unter anderem ausgeführt wird:

---
Sub AktivesBlattZuPDF()

Dim myDateiname As String, mySpeicherort As String

myDateiname = "xxxxx" & "_" & Range("Q3").Value & "_" & Range("T3").Value & "_" & Range("W3").Value & "_" & Format(Date, "DD.MM.YYYY") & ".pdf"
mySpeicherort = Application.GetSaveAsFilename(InitialFileName:=myDateiname, _
FileFilter:="PDF Files (*.pdf), *.pdf", Title:="Als PDF speichern")

If mySpeicherort <> "" And mySpeicherort <> "Falsch" Then
ActiveSheet.Range("A1:AC41").ExportAsFixedFormat Type:=xlTypePDF, Filename:=mySpeicherort, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Else
MsgBox "Als PDF speichern abgebrochen"
Exit Sub
End If

End Sub
---

Es öffnet sich also der Speichern unter-Dialog mit einem vorgegebenen Dateinamen. Bei Klick auf abbrechen wird der Dialog mit einer zusätzlichen Hinweisbox geschlossen. So weit, so gut.

Mein Problem ist folgendes: wenn ich auf speichern klicke und bereits eine Datei mit demselben Namen in dem Verzeichnis vorhanden ist, wird diese ohne weitere Nachfrage überschrieben.

Wie bekomme ich es hin, dass abgefragt wird, ob die Datei tatsächlich überschrieben werden soll, so wie man es normalerweise auch kennt?
Ich weiß nicht, warum er das bei mir nicht tut.
Auf die Message-Box kann ich verzichten, falls sie es unnötig verkompliziert. Ich hatte sie nur eingebaut, weil er ansonsten die Datei auch bei Klick auf abbrechen exportiert hat.

Ich freue mich auf eure Rückmeldungen.

Gruß, Alex

 

PS: Habe die Frage ebenfalls im Nachbarforum MS-office-forum.net gestellt: https://www.ms-office-forum.net/forum/showthread.php?t=354647