In diesem Beispiel wird der Verteiler für BOOK1.XLS nach Abschluss des Weiterleitens zurückgesetzt.
With Workbooks("BOOK1.XLS").RoutingSlip If .Status = xlRoutingComplete Then .Reset Else MsgBox "Cannot reset routing; not yet complete." End If End With