Emailing Workbook

To email your current workbook the following code.

Sub Email()
ActiveWorkbook.SendMail recipients:="julsn@yahoo.com"
End Sub