title: How can I copy a sheet to a new uncreated workbook?
body: <p>This is a really dumb question but I don't find the answer in the book I have and at work I don't have internet. 
  What I wanna do is to save a worksheet from the activeworkbook to a new file. I tried to do it this way but obviously you can't assign a worksheet directly to an uncreated workbook.</p>
  
  <pre><code>Public Sub SaveRaport() 
  Dim ws As Worksheet 
  Set ws = Worksheets("Raport") 
  Dim wb As Workbook 
  wb = ws 'here's the problem… I don't know how to do this thing 
  Dim TempFilePath, TempFileName, FileExtStr, adrmail As String
  
  wb.Save 
  TempFilePath = "C:\Users\ionadr\Desktop\test" &amp; "\" 
  TempFileName = "Raportare" &amp; " " &amp; Format(data, "dd-mmm-yy ") &amp; " schimbul " &amp; schimb 
  FileExtStr = "." &amp; LCase(Right(wb.Name, Len(wb.Name) - InStrRev(wb.Name, ".", , 1))) 
      MsgBox ("Saving file...") 
      wb.SaveCopyAs TempFilePath &amp; TempFileName &amp; FileExtStr 
  End Sub
  </code></pre>
  
  <p>I appreciate your help! Thanks</p>