PDA

View Full Version : VBA to copy 3 worksheets and email



magikmel
07-20-2010, 06:08 AM
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