saving one worksheet only

A

andrewm

hi
can someone help me? I need to email an excel worksheet rather than the
whole excel work book. any suggestions.
many thanks
andrewm
 
M

maba

Sub EmailExcelSheet()

Dim myOutlook As Object
Dim myMailItem As Object

Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.CreateItem(olMailItem)
fName = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

With otlNewMail
.To = "[email protected]"
.CC = ""
.Subject = ActiveWorkbook.Name
.Body = "your text" & Chr(13) & Chr(13) & "your text"
ActiveWorkbook.Name & Chr(13) & Chr(13) & "Best Regards," & Chr(13)
"your name" & Chr(13) & Chr(13)
.Attachments.Add fName
.Send
End With

End Sub

I will use this when I have to send daily our orders by email.

Regards,
Mab
 
A

Adam

When you've got the spreadsheet open, right click on the tab and select
'Move or Copy' then click 'Create copy' box at the bottom, then select
the drop down box at the top then select '(new workbook)'.

This will copy that worksheet into a new workbook which you can then
email.
 
A

Adam

When you've got the spreadsheet open, right click on the tab and select
'Move or Copy' then click 'Create copy' box at the bottom, then select
the drop down box at the top then select '(new workbook)' then press
OK.

This will copy that worksheet into a new workbook which you can then
email.
 
Top