title: VB Save to current path and filename, plus add current date to filename
body: <p>I am very, very new to VB and am grateful to have found this site!</p>
  
  <p>I searched and reviewed every auto-suggested similar Q&amp;A links for my question but didn't find exactly what I was looking for (perhaps because I didn't understand what I was looking at... ;-). </p>
  
  <p>I used this Excel macro from another user's <a href="https://stackoverflow.com/questions/11145421/macro-with-save-current-date">question</a>, answered by <a href="https://stackoverflow.com/users/1140579/siddharth-rout">Siddharth Rout:</a></p>
  
  <p><a href="https://stackoverflow.com/questions/11145421/macro-with-save-current-date">Macro with Save Current Date</a></p>
  
  <pre><code>Sub Save()
      Dim FilePath As String
      Dim NewName As String
  
      FilePath = "X:\": NewName = FilePath &amp; "file" &amp; Format(Date, "MM-DD-YYYY") &amp; ".xlsm"
  
      ActiveWorkbook.SaveAs Filename:=NewName, FileFormat _
      :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
  End Sub
  </code></pre>
  
  <p>This works perfectly if I want the file to be named "file" (or whatever I insert in the quotes).    </p>
  
  <p>But, how would I edit this macro so that it would work on any open file so that the current date is added to the file's existing path and filename?</p>
  
  <p>Thanks in advance for your help!</p>
  
  <p>Andy</p>