Replacing one file with another without display alerts

[SDruley]

I have two files A and B. I want to do a save as with B onto A. The problem is that I get this message that the file exists. The message says, A) replace A with B? B) save both C) do nothing. How can I default to the replace A with B without the popup message?
using:

Application.DisplayAlerts =False

has no affect.

[Andrew-R]

That should work fine - can you show us a bit more of your code?

[SDruley]

' The purpose of this code is to locate and unzip a file then save the
' newly created, unzipped file over top of a file with the same name.
Sub UNZIPandSAVEAS()
    Dim FSO As Object
    Dim oApp As Object
    Dim Fname As Variant
    Dim NewFile As Variant
    Dim DefPath As String
    Dim strDate As String
    Fname = "C:\Users\Steve\ftp\DOWBUFF.zip"
        'Root folder for unzipped file
        DefPath = "C:\Users\Steve\ftp\UnzippedBUFFS\"
        NewFile = DefPath ' Variant
        'Extract the file into the newly created location
        Set oApp = CreateObject("Shell.Application")
        ' Copy the newly unzipped file to the new location (Save - As)
        oApp.Namespace(NewFile).CopyHere oApp.Namespace(Fname).items
        ' Close temporary file
        On Error Resume Next
        Set FSO = CreateObject("scripting.filesystemobject")
        FSO.deletefolder Environ("Temp") & "\Temporary Directory*", True
End Sub