title: Cant Copy Activesheet before send it
body: <p>I am going to copy a active worksheet before send it out thought outlook, but it gave me a </p>
  
  <blockquote>
    <p>"Run-time error '1004': We couldn't copy this sheet". </p>
  </blockquote>
  
  <p>I have try few commands in below to copy the sheet just don't work:</p>
  
  <pre><code>ThisWorkSheet.Copy ' fist method 
  Worksheets("Confirm").Activate 
  ActiveSheet.Copy   ' Second mehod
  ActiveWorkbook.Sheets("Confirm").Copy ' Third method
  </code></pre>
  
  <p>All this came out error and debug is navigate to online of above code.</p>
  
  <pre><code>Sub Mail_ActiveSheet()
  
  Dim FileExtStr As String
  Dim FileFormatNum As Long
  Dim Sourcewb As Workbook
  Dim Destwb As Workbook
  Dim TempFilePath As String
  Dim TempFileName As String
  Dim OutApp As Object
  Dim OutMail As Object
  
  With Application
      .ScreenUpdating = False
      .EnableEvents = False
  End With
  
  Set Sourcewb = ActiveWorkbook
  
  'Copy the ActiveSheet to a new workbook
  
  ActiveSheet.Copy ' when debug this code come out error
  Set Destwb = ActiveWorkbook
  
  'Determine the Excel version and file extension/format
  With Destwb
      If Val(Application.Version) &lt; 12 Then
          'You use Excel 97-2003
          FileExtStr = ".xls": FileFormatNum = -4143
      Else
          'You use Excel 2007-2016
          FileExtStr = ".xlsm": FileFormatNum = 52
      End If
  End With
  
  'Save the new workbook/Mail it/Delete it
  TempFilePath = Environ$("temp") &amp; "\"
  TempFileName = Range("F4").Value
  
  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(0)
  
  With Destwb
      .SaveAs TempFilePath &amp; TempFileName &amp; FileExtStr, FileFormat:=FileFormatNum
      On Error Resume Next
      With OutMail
          .To = Range("B12").Value
          .CC = ""
          .BCC = ""
          .Subject = "Order From " &amp; Range("E8").Value
          .HTMLBody = "&lt;font face=""calibri"" style=""font-size:11pt;""&gt;Dear Collegue, " &amp; "&lt;br&gt;&lt;br&gt;" &amp; _
                  "Please kindly find the attached new order for " &amp; Range("E8").Value &amp; " above." &amp; _
                  "&lt;br&gt;&lt;br&gt;" &amp; "Regards &lt;br&gt;&lt;br&gt;" &amp; Range("F6").Value &amp; "&lt;br&gt;&lt;br&gt;" &amp; _
                  "Shop : " &amp; Range("E8").Value &amp; "&lt;br&gt;" &amp; _
                          Range("E9").Value &amp; "&lt;br&gt;" &amp; _
                          Range("E10").Value &amp; "&lt;br&gt;" &amp; _
                          Range("E11").Value &amp; "&lt;br&gt;" &amp; .HTMLBody &amp; "&lt;/font&gt;"
          .Attachments.Add Destwb.FullName
          'You can add other files also like this
          '.Attachments.Add ("C:\test.txt")
          .Send   'or use .Display
      End With
      On Error GoTo 0
      .Close savechanges:=False
  End With
  
  'Delete the file you have send
  Kill TempFilePath &amp; TempFileName &amp; FileExtStr
  
  With Application
      .ScreenUpdating = True
      .EnableEvents = True
  End With
  
  MsgBox "Mail has been sent!"
  
  Set OutApp = Nothing
  'Set OutMail = Nothing End Sub
  </code></pre>
  
  <p>Please helps, thank you</p>