title: Save As failed Excel VBA
body: <p>-<strong>Summary</strong>:
  I'm trying write code that will automatically save with the name of the current date</p>
  
  <p>-<strong>Problem</strong>: Error saying "Method 'SaveAs' of object '_Workbook' failed" pops up when compiler reaches the line that saves. Everything else works. I've shown the whole function for references' sake.</p>
  
  <pre><code>Function createRecord()
  
      Dim rowCount As Integer
  
      Dim theDate As Date
  
      theDate = Format(Now(), "MM-DD-YY")
  
      Sheets("New Data").Select
      Cells.Select
      Selection.Copy
      Sheets.Add After:=Sheets(Sheets.Count)
      Application.ActiveSheet.Name = "ChaseHistory"
      ActiveSheet.Paste
      rowCount = ActiveSheet.UsedRange.Rows.Count
  
      Sheets("Exceptions").Select
      'rowCount = ActiveSheet.UsedRange.Rows.Count
      Application.CutCopyMode = False
      ActiveSheet.UsedRange.Rows.Select
      Selection.Copy
      Sheets("ChaseHistory").Select
      ActiveSheet.Range("A" &amp; rowCount + 2).Select
      ActiveSheet.Paste
      Range("A1").Select
      Cells.Select
      Selection.Copy
  
      ChDir "Z:\Customer_Service_Accounting\REPORTING &amp; CONTROLS TEAM\Book And Balance_Katie\Chase Booking History"       'loads the crystal report
  
      Workbooks.Open Filename:= _
          "Z:\Customer_Service_Accounting\REPORTING &amp; CONTROLS TEAM\Book And Balance_Katie\Chase Booking History\Do_Not_Delete.xlsx"
  
      Windows("Do_Not_Delete").Activate
      ActiveSheet.Paste
  
      Application.DisplayAlerts = False
                   '---------------This is the problem child--------------                                                                  'SAVING WORKBOOK
      ActiveWorkbook.SaveAs Filename:="Z:\Customer_Service_Accounting\REPORTING &amp; CONTROLS TEAM\Book And Balance_Katie\Chase Booking History\" &amp; CStr(theDate), FileFormat:= _
      xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
      , CreateBackup:=False
  
      Application.DisplayAlerts = True
  
  End Function
  </code></pre>
  
  <p>-I added in the convert to string method on date because I thought that might be causing the problem but had the same result. Let me know if you see anything wrong here. Thanks!</p>