Try this:

dim vArr as Variant
dim Rng as Range

set Rng = .Range("A1:A6")
vArr = Rng.Value

ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = vArr
End With
ActiveWorkbook.Route

"Mike R." wrote:

Greetings,
I am using the Routing function on Excel and I would like to autofill the
routing recipients and route the workbook based on the people that are in a
range of cells.

The Cells that auto fill based on fomula's are A1:A6....some cells may be
blank. I am just unfamiliar with arrays, but here is where I am so far with
the code:

ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = Array(????)
End With
ActiveWorkbook.Route

I think I will need to use a FOR statement, but need a little help. Thank
you very much,
Mike