Email two tabs out of Excel

[shoey72]

I currently have the following code below set up which sends out two seperate emails to the same person out of excel. I'm trying to combine this to only send out one email with both tabs:

Sub Send1Sheet_ActiveWorkbook()

'Create a new Workbook Containing 1 Sheet (left most)_

    ThisWorkbook.Sheets(2).Copy

       With ActiveWorkbook

         .SendMail Recipients:="smellypants@wynit.com", Subject:="Top 250 Skus Dollars " & Format(Date, "dd/mmm/yy")

         .Close SaveChanges:=False

    End With

    
    ThisWorkbook.Sheets(3).Copy

       With ActiveWorkbook

         .SendMail Recipients:="smellypants@wynit.com", Subject:="Top 250 Skus Qty " & Format(Date, "dd/mmm/yy")

         .Close SaveChanges:=False

    End With


End Sub