Sub Send()
    ' Select the range of cells on the active worksheet.
   ActiveSheet.Range("A1:B34").Select

   ' Show the envelope on the ActiveWorkbook.
   ActiveWorkbook.EnvelopeVisible = True

   ' Set the optional introduction field thats adds
   ' some header text to the email body. It also sets
   ' the To and Subject lines. Finally the message
   ' is sent.
   With ActiveSheet.MailEnvelope
      .Introduction = "Please Review Leave/Overtime Form"
      .Item.To = "email@email.com"
      .Item.Subject = "Leave/Overtime Form"
      .Item.Send
   End With
ActiveWorkbook.Close SaveChanges:=False
End Sub