title: VBA save as not working in Excel 2013
body: <p>I'm hoping I am hoping some can help me </p>
  
  <p>I am trying to use the below code to save files in Excel 2013 but I am getting the following error message:-</p>
  
  <blockquote>
    <p>Method 'SaveAs' object'__Workbook' failed</p>
  </blockquote>
  
  <p>Can anyone advise?</p>
  
  <pre><code>Sub SaveFile()
  
  Dim Destwb As Workbook
  Dim FolderName As String
  Dim Sourcewb As Workbook
  Dim FileExtStr As String
  Dim FileFormatNum As Long
  Dim Name As String
  
  Set Sourcewb = ThisWorkbook
  Set Destwb = ActiveWorkbook
  Name = Cells(2, 2).Value
  
  FolderName = Sourcewb.Path &amp; "\Files_with_graphs"
  FileExtStr = ".xls": FileFormatNum = 56
  
  With Destwb
          .SaveAs FolderName _
          &amp; "\" &amp; Name &amp; FileExtStr, FileFormat:=FileFormatNum
          .Close False
  
  End With
  
  End Sub
  </code></pre>