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?