Routing slip in Excel 2007
 

I am trying to code a routing script in Excel 2007. In Excel 2003 it worked
fine and my code was as follows...
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = "
.Subject = "Routing: control form"
.Message = ""
.Delivery = xlAllAtOnce
.ReturnWhenDone = False
.TrackStatus = False
End With
ActiveWorkbook.Route

When I try the same code in excel 2007 I receive an error
Run time error 1004 Method HasRoutingSlip of object Workbook failed

Any help would be greatly appreciated. Thanks