Save As Request at end of Macro

[steimel386]

I have a lengthy macro using FileSearch. Everything works out great, other than the save as prompt at the end. It saves as a CSV and titles everything correctly, but gives the error prompt as seen below regardless if you click save or cancel. Can anyone see what's wrong with the code below? Thanks for your help.

Dim SaveName
Dim RightNow
    RightNow = Now()
    SaveName = "Analyzer Extraction by " & MemberName & " on " & Format(RightNow, "mm-dd-yyyy")
Application.Dialogs(xlDialogSaveAs).Show SaveName, xlCSV
    If Application.Dialogs(xlDialogSaveAs) = vbCancel Then
            MsgBox "You have canceled the Save As request. It is recommended that a new " & vbCrLf _
        & "save file be created to prevent this analyzer from being overwritten.", vbOKOnly + vbExclamation, "Canceled Save"
    End If

 

[ravishankar]

Hi
try replacing with this code

 If Application.Dialogs(xlDialogSaveAs).Show = False Then

Ravi