Simple VBA needed to attach workbook to email with subject name

[lpratt]

I am looking for a simple code that will allow me to create a button that will attach the current workbook to a email and have the subject line as what is in cell a1 in sheet 1.

i want to manually add email recipients

please help