title: VBA Excel Macro save as part of cell with date
body: <p>I have the following VBA code saving workbook1 sheets to a folder where workbook1 file is saved. Example: workbook1 has 31 sheets. The code saves each sheet to a new workbook with the same name as the sheet. (Sheet1, Sheet2, etc).</p>
  
  <pre><code>Sub SaveShtsAsBook()
  Dim Sheet As Worksheet, SheetName$, MyFilePath$, N&amp;
  MyFilePath$ = ActiveWorkbook.Path &amp; "\" &amp; _
  Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
  With Application
      .ScreenUpdating = False
      .DisplayAlerts = False
       '      End With
      On Error Resume Next '&lt;&lt; a folder exists
      MkDir MyFilePath '&lt;&lt; create a folder
      For N = 1 To Sheets.Count
          Sheets(N).Activate
          SheetName = ActiveSheet.Name
          Cells.Copy
          Workbooks.Add (xlWBATWorksheet)
          With ActiveWorkbook
              With .ActiveSheet
                  .Paste
                  .Name = SheetName
                  [A1].Select
              End With
               'save book in this folder
              .SaveAs Filename:=MyFilePath _
              &amp; "\" &amp; SheetName &amp; ".xls"
              .Close SaveChanges:=True
          End With
          .CutCopyMode = False
      Next
  End With
  Sheet1.Activate
  End Sub
  </code></pre>
  
  <p>I need to modify the code to save the file with the ID and date. The ID is in cell A1. "XXX Clinic Pro Fees Report for Doe, John (JDOE)". In this example I need the new workbook to save as JDOE_2017-10-20. </p>
  
  <p>Is there a way to gave the ID and place the date after it? </p>