I have designed a workbook so that based upon the following macro, a
designated worksheet ("Sheet1") will be copied and sent to Outlook
where it is mailed.

Private Sub Worksheet_Activate()
ActiveWorkbook.Worksheets("Sheet1").Copy
ActiveWorkbook.SendMail Worksheets("Sheet1").Range("A1"),
Worksheets("Sheet1").Range("A2")
ActiveWorkbook.Close False
'A1 = User's mail | A2 = User's confirmation
End Sub

If I attempt to email a workbook on a computer that does not have
Outlook (Mail, Express), this macro obviously debugs. Therefore, I
need to be able to make a copy that can be easily accessed, renamed
and attached to web-based systems such as hotmail and yahoo. I would
appreciate any help fashioning a macro that will accomplish that
goal. Thanks.

Michael