title: Saving a File in Desired Folder Through Browsing With VBA
body: <p>Writing a code to save a file with a defined filename to a specific folder entered by the user. However the file is being saved in a location previous to the specified location. For example I provide file save path as "C:\Users\arorapr\Documents\PAT" but the file is saving it in the path "C:\Users\arorapr\Documents". I have written the below code.</p>
  
  <pre><code> File_Name = Format(Now(), "DDMMYYYY") &amp; "_" &amp; LName &amp; EmpIN &amp; "_" &amp; Range("C6").Value &amp; "_" &amp; Range("J3").Value &amp; "_" &amp; "PAT"
   Application.DisplayAlerts = False
   MsgBox "Please select the folder to save PAT"
  
   With Application.FileDialog(msoFileDialogFolderPicker)
   .AllowMultiSelect = False
      .Show
  End With
  
   ActiveWorkbook.saveas Filename:=File_Name &amp; ".xlsm", FileFormat:=52
   Application.DisplayAlerts = True
  
   ActiveWorkbook.Close
  </code></pre>