Multi-sheet Workbook

[Jackie]

How do I email one sheet of a multi-sheet workbook without
sending the whole workbook? Thanks

 

[Frank Kabel]

Hi
have a look at
http://www.rondebruin.nl/sendmail.htm

 

[Guest]

Thanks for the response, but I get a message that the url
cannot be found. Could you summarize for me?

 

[Frank Kabel]

Hi
URL works for me but here's a code example from Ron's site:
------
This sub will send a newly created workbook with just the ActiveSheet.
It is saving the workbook before mailing it with a date/time
stamp.After the file is sent the workbook will be deleted from your
hard disk. Sub Mail_ActiveSheet()
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strdate & ".xls"
.SendMail "(e-mail address removed)", _
"This is the Subject line"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub

 

[Ron de Bruin]

Hi

I have add some code this evening for sending the Activesheet asa txt or csv file
Maybe that's why the error??