I have created a mail macro to automaticly send an excel
spreadsheet to a set email address. The problem I have,
is that the reciepiant recieves two email's instead of
one. I have only the one address listed. Here is a copy
of the code.

Private Sub Image1_Click()
ActiveWorkbook.SendMail ", "Subject was
here"
End Sub

Can anyone shed anylight on my problem?

Thanks