Hi there, i'm trying to send via a single e-mail, two worksheets (1 and 3) to a specific e-mail.

Currently i'm using a code that sends only one sheet per e-mail.

Can you help me?

What I have right now is:

Sub emailalge()


ThisWorkbook.Sheets(3).Copy


With ActiveWorkbook
.SendMail
Subject:="e-mail " & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With

End Sub


thanks!