title: Run-time error '1004': Method 'SaveAs' of object'_Workbook' failed
body: <p>Users have an Excel spreadsheet. To save it, they press a button which runs the below VBA code.</p>
  
  <p>The code attempts to save the Excel spreadsheet to a network location amending the file name with today's date.</p>
  
  <p>Intermittently the code will fail with</p>
  
  <blockquote>
    <p>"Run-time error '1004': Method 'SaveAs' of object'_Workbook' failed".</p>
  </blockquote>
  
  <p>The script is:</p>
  
  <pre><code>Public Sub Copy_Save_R2()
      Dim wbNew As Workbook
      Dim fDate As Date
  
      fDate = Worksheets("Update").Range("D3").Value
  
      Set wbNew = ActiveWorkbook
  
      With wbNew
          ActiveWorkbook.SaveAs Filename:="Q:\R2 Portfolio Prints\#Archive - R2 Portfolio\" &amp; "R2 Portfolio - CEC A " &amp; Format(fDate, "mm-dd-yyyy")
      End With
  
      Sheets("Update").Activate
  End Sub
  </code></pre>