expression.ReturnWhenDone
expression Required. An expression that returns a RoutingSlip object.
Example
This example sets the routing slip for Sales 1995.doc to return the document back to the original sender after the last recipient reviews it.
If Documents("Sales 1995.doc").HasRoutingSlip = True Then
With Documents("Sales 1995.doc").RoutingSlip
.Delivery = wdOneAfterAnother
.ReturnWhenDone = True
End With
End If