ReturnWhenDone Property
True if the workbook is returned to the sender when routing is finished. Read/write Boolean.
Remarks
You cannot set this property if routing is in progress
Example
This example sends Book1.xls to three recipients, one after another, and then it returns the workbook to the sender when routing has been completed.
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?"
.ReturnWhenDone = True
End With
Workbooks("BOOK1.XLS").Route