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
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