Returns or sets the routing delivery method. Can be one of the following XlRoutingSlipDelivery constants: xlOneAfterAnother or xlAllAtOnce. Read/write Long.
Remarks
You cannot set this property if routing is in progress
Example
This example sends Book1.xls 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").Route