VBA to copy 3 worksheets and email

[magikmel]

Hi all,


I found this code below on another website and it works great however it will only copy and email 1 sheet (the active sheet), where i need it to copy and email sheets 3 to 5 of my workbook - any help to tweek this code would be much appreciated!!

 
Sub eMail()
ActiveSheet.Copy
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Close SaveChanges:=False
End Sub

Thanks