Jeff

I wouldn't use Names as it's a reserved word and you probably don't need a
variable anyway.

Dim i As Long

With ThisWorkbook.RoutingSlip.Recipients
For i = 1 to .Count
Sheet1.Cells(i,1).Value = .Item(i)
Next i
End With

Untested, but I think it will work.

--
Dick Kusleika
Excel MVP
Daily Dose of Excel
www.dicks-blog.com

Jeff wrote:
Greetings,
My worksheet uses Routing and I would like to pull the Routing
Recepients names off of the routing slip and put them somewhere on
the worksheet to everyone can see who the worksheet will be routed
to. I have read the help file on this, but I am a little confused.
Below is what Help says. I would just like code to retreive the
routing recipients. I think my code should be something like:
Names = ThisWorkbook.RoutingSlip.Recepients, but I am confused.

help please.....

Syntax
expression.Recipients(Index)
expression Required. An expression that returns a RoutingSlip
object. Index Optional Variant. The recipient. If this argument
isn't specified, the Recipients property returns (or can be set to)
an array that contains all recipients.
Remarks
The order of the recipient list defines the delivery order if the
routing delivery option is xlOneAfterAnother.
If a routing slip is in progress, only those recipients who haven't
already received and routed the document are returned or set.