Enviar libro adjunto(macro excel vba)

Option Explicit
'Mediante este excel codigo vba de ejemplo podemos enviar el libro activo al email
'lo sgte que podrias hacer es crear un boton en el ribbon o un boton en una barra del Excel
'y desde ese botón enviar directamente un libro o una hoja

'Macro enviar el libro activo
Sub Prc_SendTheActiveWorkbook()
ActiveWorkbook.SendMail Recipients:="EXCELVBASAMPLE@Sample.com", Subject:=" EXCELVBASAMPLE "
End Sub

'Enviar solo primera hoja como adjunto
Sub prc_Send_one_Sheet_From_ActiveWorkbook()
ActiveWorkbook.Sheets(1).Copy
With ActiveWorkbook
.SendMail Recipients:="EXCELVBASAMPLE@Sample.com", Subject:=" SAMPLE EXCEL VBA "
.Close SaveChanges:=False
End With
End Sub