Issue with automatically saving a file to a folder on my desktop

Hi pcm,

This is how I'd insert the helpfile code:

ElseIf Application.Caller = "SaveAsExcelButton" Then
    Dim Fname As String, Newbook As Workbook
    MsgBox "Where would you like to save the Excel Backup of this Quote", vbOKOnly + vbExclamation, "Backup Quote"
    Do: Fname = Application.GetSaveAsFilename
                  Loop Until Fname <> False
                  Newbook.SaveAs Filename:=Fname
    If Application.Dialogs(xlDialogSaveAs).Show(, , vbNullString) Then
        MsgBox "Your Excel File Has Been Saved", vbExclamation, "Backup Quote"
    Else
        MsgBox "YOU DID NOT SAVE A BACKUP!!", vbOKOnly + vbCritical, "Try Again"
    End If

But if you want B13 & B17 to be the filename:

Fname=Sheets(2).Range("B13") & Sheets(2).Range("B17")
ActiveWorkbook.SaveAs Filename:=Fname

And, you'd probably want to close it so that you'd be back in the one you backed up.

ActiveWorkbook.Close