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 isnt 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 havent already
received and routed the document are returned or set.




--
Jeff

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.

Hi Dick,
Thank you for the code. Unfortantely, it is not working. I would welcome
any other suggestions please. Thank you in advance.
Jeff

"Dick Kusleika" wrote:

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.

Sub AAABB()
Dim myNames As Variant
Dim rw As Long
myNames = ThisWorkbook.RoutingSlip.Recipients()
rw = 10
For i = LBound(myNames) To UBound(myNames)
Cells(rw, "Z").Value = myNames(i)
rw = rw + 1
Next

End Sub

--
Regards,
Tom Ogilvy



"Jeff" wrote in message
...
Hi Dick,
Thank you for the code. Unfortantely, it is not working. I would welcome
any other suggestions please. Thank you in advance.
Jeff

"Dick Kusleika" wrote:

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.

Tom,
this is absolutely amazing!! It works great. Thank you,
Jeff

"Tom Ogilvy" wrote:

Sub AAABB()
Dim myNames As Variant
Dim rw As Long
myNames = ThisWorkbook.RoutingSlip.Recipients()
rw = 10
For i = LBound(myNames) To UBound(myNames)
Cells(rw, "Z").Value = myNames(i)
rw = rw + 1
Next

End Sub

--
Regards,
Tom Ogilvy



"Jeff" wrote in message
...
Hi Dick,
Thank you for the code. Unfortantely, it is not working. I would welcome
any other suggestions please. Thank you in advance.
Jeff

"Dick Kusleika" wrote:

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.