title: Cannot save another workbook
body: <p>I want to copy <code>ThisWorkbook.Sheets("report")</code> to a new workbook.
  The file name should be <code>sheet2.Cells(1, 1)</code> .</p>
  
  <p>And i have defined the worksheet save location and filename .</p>
  
  <p>Now , I can copy <code>worksheet-report</code> to a new workbook .However , that file name is 1,2,3,......  (not my expected file name <code>sheet2.Cells(1, 1)</code> .
  Also the file hasn't been saved . If i close the new workbook , it asks me to save. And i go to that folder ,i cant find that workbook .</p>
  
  <p>What's the matter? (it should saved in that folder and named well .)</p>
  
  <pre><code>  Dim wb As Workbook
          Set wb = Workbooks.Add
  
          ThisWorkbook.Sheets("report").Copy Before:=wb.Sheets(1)
          wb.SaveAs "R:\Summer \eva\" &amp; sheet2.Cells(1, 1) &amp; ".xlsx"
  </code></pre>
  
  <h1>update</h1>
  
  <p>even i use <code>thisworkbook.worksheets("report")</code> not working</p>
  
  <p>cells(1,"A") is a combined cells ,that combines A1 to V1</p>
  
  <p>i tried cells(6,"a") .it is "111" .it works .It can save and name correctly</p>
  
  <h1>2 update</h1>
  
  <p>I tried to paste cells(1,1) into one single cell .It is still not working .
  Then i try to shorten my sentence from 8 words to 3 words .It works.
  Is it about the file name words limit ?</p>
  
  <h1>3 update</h1>
  
  <p>i paste cells(1,1) -7 words to another cells and test again .It is working .
  i think it is not related to the cell length . 
  I guess the reason here :</p>
  
  <p>cells(1,1) is combined by:</p>
  
  <pre><code>   If (fromyear = toyear And frommonth = ToMonth) Then
  [A1].Value = "Management statistics on abc work for " &amp; fromyear &amp; "/" &amp; frommonth
  Else
  [A1].Value = "Management statistics on abc work" &amp; " from " &amp; fromyear &amp; "/" &amp; frommonth &amp; " to " &amp; toyear &amp; "/" &amp; ToMonth
  End If
  </code></pre>
  
  <p>But i have no idea how to solve .</p>