email from workbook

[stans]

Where would I place the email address in the macro below.
It attaches the workbook but I want it to enter the email address to send it to.


Sub email()
'
' email Macro
' Macro recorded 2/26/2010 by stans'
' Keyboard Shortcut: Ctrl+e
'
Application.Dialogs(xlDialogSendMail).Show
End Sub

[HansV]

Try this:

Application.Dialogs(xlDialogSendMail).Show Arg1:="someone@company.com"

You can also specify the subject:

Application.Dialogs(xlDialogSendMail).Show Arg1:="someone@company.com", Arg2:="Monthly Report"

[stans]

That'll do it--- glad you included the subject line---Thanks