Tammy,

This is out of XL 2003 Help:

This example creates a routing slip for Book1.xls and then sends the
workbook to three recipients, one after another.
Workbooks("BOOK1.XLS").HasRoutingSlip = True
With Workbooks("BOOK1.XLS").RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("Adam Bendel", _
"Jean Selva", "Bernard Gabor")
.Subject = "Here is BOOK1.XLS"
.Message = "Here is the workbook. What do you think?"
End With
Workbooks("BOOK1.XLS").Routehth,

Doug


"Tammy H" wrote in message
...
Hi Tom,

I can't find anything regarding routing on Ron's page. I am trying to use
the code below but I receive the "Invalid use of property" message.

ActiveWorkbook.RoutingSlip , Sheets("Form").Range("b20:b25").Value, "Menu
Request Form"

TH

"Tom Ogilvy" wrote:

I think Ron de Bruin has this covered on his page:

http://www.rondebruin.nl/sendmail.htm

--
Regards,
Tom Ogilvy


"Tammy H" wrote in message
...
Hi,
I have a worksheet that has a send button. When the send button is
clicked
Is there code that would look in a range of cells and send the workbook
to
all email addresses in the range using routing slip. I would use the
sendmail but the email addresses in the range change depending on
certain
criteria. Hope this isn't to confusing. It is difficult for me to
explain.


Any help is also greatly appreciated.

TH