Try these.
Sub Tester1()
Dim btn As CommandBarButton
Set btn = CommandBars("File").Controls("Sen&d To") _
.Controls("&Routing Recipient...")
btn.Execute
End Sub

Sub Tester2()
Dim btn As CommandBarButton
Set btn = Application.CommandBars.FindControl(ID:=259)
btn.Execute
End Sub

--
Regards,
Tom Ogilvy


"Mike R." wrote in message
...
Hello,
I am very determined to get the routing to work. I am trying to eliminate
the need for the user to go to FileSend ToRouting Recipent by create a
macro to do this. I under the code to get to open the routing dialog box:

Application.Dialogs(xlDialogRoutingSlip).Show

The problem is that if I use this, it must skip something that links to
the
users outlook. When I run the above code, it opens another dialog box
that
asks the user to choose a profile. This will totally confuse my users.
Is
there a way to have a macro do the commands of FileSend ToRouting
Recipent?
The macro recorder does not for this...

Please help...I would welcome any suggestions to make this work. Thank
you,
Mike