NO wait! Sorry, I had mistyped something. Your method
worked! Thank you!


-----Original Message-----
Thank you so much for your help, but I am getting:

Run-time error '1004' General Mail Failure

???


-----Original Message-----
Try something like this:

Sub SendSheet()

Dim rec(2) As String

rec(1) = "
rec(2) = Application.InputBox("Type your e-mail
address to get a copy")

ActiveWorkbook.SendMail Recipients:=rec(),
Subject:="My subject"


End Sub

Jan

"Clapp" skrev i
en
meddelelse
...
I have a macro that is to automatically send the
worksheet to a particular email address.

At the end of a macro, I have written an InputBox for
the
user to enter his email address if he wants a copy.

I want the worksheet to be sent to the first
particular
address (same one every time, hard coded in) as well
as
the address input by the user.

This seems like it should be easy. I'm using .SendMail

How do I combine the two addresses?


.

.