Warning when overrides PDF

[Hatye]

Hi,

I have the following code for saving as PDF:

Private Sub LagrePDF_Click()


Application.DisplayAlerts = True


If Sheets("Lister").Range("BQ3").Value = "x" Then
    If Sheets("Rapport").Range("AE6").Value = "" Then
        Call PdfGnrBnr
        Else: Call PdfGnrBnrFnr
    End If
Else:


Dim fileSaveName As Variant


    wbName = Split(ActiveWorkbook.Name, ".")(0)


    fileSaveName = Application.GetSaveAsFilename(initialFilename:=wbName)
    If VarType(fileSaveName) = vbBoolean Then Exit Sub
    
    fileSaveName = Left(fileSaveName, Len(fileSaveName) - 1)
    
    'Hvis Gemini Terreng & Entprenrenør
        If Rows("63:63").Hidden = True Then
            Dim varMyArray() As Variant 'Declares a dynamic array variable
            Dim lngArrayCount As Long
            Dim varMySheet As Variant
                
            For Each varMySheet In Array("Rapport", "Rapport_Linjer", "Rapport_Punkt", "Rapport_Polygon", "Rapport_Tekst", "Rapport_Triangelnett")
                If Len(Sheets(varMySheet).Range("A7")) > 0 Or varMySheet = "Rapport" Then
                    lngArrayCount = lngArrayCount + 1
                    ReDim Preserve varMyArray(1 To lngArrayCount) 'Append the record to the existing array
                    varMyArray(lngArrayCount) = varMySheet
                End If
            Next varMySheet
            
            Sheets(varMyArray).Select
        End If
    
    ' Save as PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileSaveName, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=True
    
End If


Me.Hide
        
End Sub

But it doesn't warn me when it overrides an existing PDF, even though I have

Application.DisplayAlerts = True

at the beginning.