Enviar Selección en el body del e-mail (Macros VBA)

Buenas tardes, en Excel existe la opción de enviar la selección en el cuerpo
del mensaje de un e-mail

File/Send To/Mail Recipient
Send the current sheet as the message body.

Me gustaría realizar esa acción mediante una macro.

Conozco:
ActiveWorkbook.SendMail "pepe@pepe.com", "Prueba"
o
Application.Dialogs(xlDialogSendMail).Show

pero éstas adjuntan el libro o la hoja.

Yo necesito que el contenido quede en el body del e-mail.

muchas gracias!