VBA to copy Active Workbook to a new Workbook

[AHilgers]

I want to copy the active workbook to a new workbook. I have code now that copies the active sheet, but I want all sheets.

Sub Mail_ActiveSheet()
'Working in 2000-2007
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 workbook to a new workbook

ActiveSheet.Copy
Set Destwb = ActiveWorkbook

 

[Domski]

For the record I agree that Tim's approach appears most appropriate for what you seem to be trying to achieve.

Dom

 

[dcoker]

Is there a way to remove the '.xlsx' extension from the file name itself when attaching the file?
Example:

    TempFilePath = Environ$("temp") & "\"
    TempFileName = Sourcewb.Name & " " & Format(Date, "mm-dd-yy")

    With Destwb
        .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
[code]

This results in File.xlsx 01-25-19.xlsx

I only want .xlsx on the end