title: Rename an excel file and save it to a relative path with VBA
body: <p>I have a workbook that I format through macros I recorded. The macros currently rename the file and save it to a constant path, but I need it to rename the file and save it to a relative path so that other teammates can use it. Are there any suggestions?</p>
  
  <p>This is the active file</p>
  
  <pre><code>Windows("Manual Reconciliation Template.xlsm").Activate
  </code></pre>
  
  <p>This is the constant path</p>
  
  <pre><code>ActiveWorkbook.SaveAs FileName:= _
          "C:\Users\e6y550m\Documents\MANUAL RECS\Manual Reconciliation Template.xlsm", _
          FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
  </code></pre>
  
  <p>Current code:</p>
  
  <pre><code>Sub Name_And_Save_Report()
  '
  ' TO NAME, DATE AND SAVE THE REPORT AFTER IT HAS BEEN WORKED.
  '
      Windows("Manual Reconciliation Template.xlsm").Activate
      Dim thisWb As Workbook
      Dim fname
  
      fname = InputBox("Enter your name (example-John):")    
      Set thisWb = ActiveWorkbook
      Workbooks.Add
      ActiveWorkbook.SaveAs FileName:=thisWb.Path &amp; "\" &amp; fname &amp; "_Manual Recon" &amp; " " &amp; Format(Date, "MM.DD.YY") &amp; ".xlsx"
      ActiveWorkbook.Close savechanges:=False
      Windows("Manual Reconciliation Template.xlsm").Activate
      ActiveWorkbook.Close savechanges:=False
  End Sub
  </code></pre>