title: To save a .xml spreadsheet in a distinct folder of a Local Drive
body: <p>While pressing SAVE AS button a new dialogue box will open to key in the file name and the local drive to save it or preferably the spreadsheet should save directly in the specified folder of the local drive.
  The code that I have written as stated underneath overwrite the file previously saved.</p>
  
  <pre><code>Sub SaveAsDialog()
    On Error Resume Next
    With Application.FileDialog(msoFileDialogSaveAs)
       .Title = "Please choose a location and file name to save"
       .ButtonName = "SAVE AS"
       .InitialFileName = "E\Backup\SWARNALI\RTGS TEMPLATE(PARTY)\" &amp; Range("").Value
       If .Show = 0 Then
         MsgBox "The file did not save.", vbCritical
         Exit Sub
       End If
       Application.DisplayAlerts = False
       .Execute
       Application.DisplayAlerts = True
    End With
  End Sub
  </code></pre>
  
  <p>Sincerely requested to modify the code so that my purpose is satisfied.</p>