And since array_transit is a range:
set array_transit = range(array_names(parm_range_id_number))
It may work if everything else is ok <vbg.
Another way of populating that array:
dim parm_range_id_number as long
dim Array_Names as Variant
array_names = array("range_males_all","range_females_all", _
"keepgoing","keepongoing")
for parm_range_id_number = lbound(array_names) to ubound(array_names)
set array_transit = range(array_names(parm_range_id_number))
'do lots of stuff
next parm_range_id_number
Kurt Krueger wrote:
Hi,
I want to set an array (array_transit) to any one of a number of
ranges in a workbook. I thought that I could store the range names in
an array and then call the array element number in a set range
statement. Didn't work--any suggestions?
Thanks,
Kurt
Function macro_test(parm_range_id_number As Integer) As Variant
Dim array_transit As Range
Dim array_names
array_names(1) = "range_males_all"
array_names(2) = "range_females_all"
....
array_names(n) = " ... "
array_transit = Range(array_names(parm_range_id_number))
. . .
End Function
--
Dave Peterson