This example routes the document named "Status.doc" to two recipients, one after the other.
Documents("Status.doc").HasRoutingSlip = True
With Documents("Status.doc").RoutingSlip
.Subject = "Status Doc"
.AddRecipient Recipient:="Don Funk"
.AddRecipient Recipient:="Eric Maffei"
.Delivery = wdOneAfterAnother
End With
Documents("Status.doc").Route