Button to automate sending two different worksheets as attachments via same email

try this

Sub Button1_Click()
'save it
ThisWorkbook.Save
'by Norie
   Dim OutApp As Object
    Dim OutMail As Object
    Dim wbTemp As Workbook
    Dim strFilename As String
    
   
   ' ThisWorkbook.Worksheets("Sheet2").Copy
   ThisWorkbook.Sheets(Array("Weekly Report", "Weekly Overview")).Copy
    
    ' set reference to new workbook
    Set wbTemp = ActiveWorkbook
    
    ' save new workbook so it can be sent as attachment
    
    wbTemp.SaveAs ThisWorkbook.Path & "/" & "Weekly Report" & " " & "and" & " " & "Weekly Overview", FileFormat:=56 'XlFileFormat.xlOpenXMLWorkbook
    
    strFilename = wbTemp.FullName
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    'On Error Resume Next
    With OutMail
        .To = "aaaa@yahoo.com" & ";" & "bbb@yahoo.com"
        .Subject = "whatever..."
        .Body = "Hello"
                
        .Attachments.Add strFilename
        .display
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
    
    wbTemp.Close
    
    Kill strFilename
    
End Sub

Hi,
I do not encounter this warning (I have a small test file), read this https://msdn.microsoft.com/en-us/lib.../ff839782.aspx and try after you create a test file

'
'
  ' save new workbook so it can be sent as attachment
    Application.DisplayAlerts = False
    wbTemp.SaveAs ThisWorkbook.Path & "/" & "Weekly Report" & " " & "and" & " " & "Weekly Overview", FileFormat:=56 'XlFileFormat.xlOpenXMLWorkbook
    
    strFilename = wbTemp.FullName
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    'On Error Resume Next
    With OutMail
        .To = "aaaa@yahoo.com" & ";" & "bbb@yahoo.com"
        .CC = ""
        .BCC = ""
        .Subject = "whatever..."
        .Body = "Hello"
                
        .Attachments.Add strFilename
        .display
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
    
    wbTemp.Close
    
    Kill strFilename
  Application.DisplayAlerts = True
End Sub

hi,
glad you are happy with the solution provided, thank you for the rep! the credit has to go to Norie!