Routed Property Example

This example sends the workbook to the next recipient.

If ActiveWorkbook.HasRoutingSlip And _
    Not ActiveWorkbook.Routed Then
        ActiveWorkbook.Route
End If