Macro to attach workbook to email

Good Morning,

 

I am looking for assistant in using a form control button (which I already have in place) to send a worksheet to a certain email address.  The worksheet is a form that individuals will fill out and to ensure that it goes to the proper location, I want the correct email address to load when the the new email message window opens.  

 

I recorded the macro and here is the code:

Sub SendEmail()
'
' SendEmail Macro
' Send TA for to ta@apwu.org.
'

'
ActiveWindow.SmallScroll Down:=0
Application.Dialogs(xlDialogSendMail).Show

End Sub

 

It works great except I need to add that the "To" section of the email should read "form@xyz.com".  I want the email message to display and not send automatically as the individuals will need to fill in the subject line and anything they want in the body of the email.

 

Thank you