This example adds a routing slip to Status.doc and then routes the document to the specified recipients.
Documents("Status.doc").HasRoutingSlip = True
With Documents("Status.doc").RoutingSlip
.Subject = "Status Doc "
.AddRecipient Recipient:="Don Funk"
.AddRecipient Recipient:="Frida Ebbeson"
.Delivery = wdAllAtOnce
End With
Documents("Status.doc").Route