emailing cell range

[JZB]

hi guys

I have a cell range

Set rng = ActiveSheet.Range(Cells(1, 1), Cells(13, 2)).Select

I wish to email this to certain parties however i cannot get the data into an email :help

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
.To = "paul2.harvey@baml.com (paul2.harvey@baml.com)"
.CC = ""
.BCC = ""

Mysubject = Sheets("Treasury Data").cell("E1")


.Subject = “” & mysubject & “”

.Display
End With

I know this is pretty crude. the subject code is not working and i cannot work out the code to get the contents (rng) into the mail. any ideas?

your help is appreciated

Thanks

JZB

[lucas]

http://www.vbaexpress.com/forum/showthread.php?t=31094&highlight=email+body+range