Excel Routing Slip
 

Does anyone know how to use the xlRoutingComplete feature, so that when the
routing is complete it updates an excel file on the same network drive?
Listed below are two examples
1) The only xlRoutingComplete example I can find
2) What I kind of want to do

The only xlRoutingComplete example I can find:
This example resets the routing slip for Book1.xls if routing has been
completed.
With Workbooks("BOOK1.XLS").RoutingSlip
If .Status = xlRoutingComplete Then
.Reset
Else
MsgBox "Cannot reset routing; not yet complete."
End If
End With

What I kind of want to do
With ActiveWorkbook.RoutingSlip
If .Status = xlRoutingComplete Then

'Create LogWorkbook object and open Track_Bookings
Set LogWorkbook = Workbooks.Open("C:\Documents and
Settings\wisej\Desktop\Track_Bookings.xls")
'Finds the last cell with data in column B of the sheet
'Offset by 1 row so data will be entered on the first blank line
after
Set RngData = LogWorkbook.Sheets("Track_Bookings").Cells(Rows.Co unt,
2).End(xlUp).Offset(1, 0)

'Just in case column E is blank and the range was set somewhere
above F6
If RngData.Row <= 6 Then Set RngData =
LogWorkbook.Sheets("Track_Bookings").Range("F6")

RngData.Offset(0, 1).Value = FormatDateTime(Now, vbLongDate)
RngData.Offset(0, 2).Value = FormatDateTime(Now, vbLongTime)

'Save changes and close workbook
LogWorkbook.Close SaveChanges:=True

Else
.Recipients = "Wise Joe"

End If
End With

Any help would be greatly appreciated!
Joe