excel 2010 routing slip VBA

[elfranzen]

OK I have tried the code out of the VBA help screen and I keep getting this Error
"Run-time error '1004':
Method 'HasRoutingSlip' of object'_workbook' failed

this is the code I am using from a button

Sub Route()
Workbooks("BOOK1.XLS").HasRoutingSlip = True
With Workbooks("BOOK1.XLS").RoutingSlip
    .Delivery = xlOneAfterAnother
    .Recipients = Array("Erik Franzen", _
        "Erik Franzen", "Erik Franzen")
    .Subject = "Here is BOOK1.XLS"
    .Message = "Here is the workbook. What do you think?"
End With
Workbooks("BOOK1.XLS").Route
End Sub

my test sheet is called Book1.XLS and i am using excel 2010 but saved it as a 2003 file. what am i doing wrong. also I know I am e-mailing myself 3 times I just want to keep the code as close to the original since i wasn't getting it to work at all.

I have also tried the code "activeworkbook.HasRoutingSlip = True but this returns an error code 424 I think.