Passing an array as argument for custom Function

[Guest]

I am trying to find out how to pass an array as an
argument for a custom function.
I have an array colors(1 to 10) and I want to pass the
whole array into a custom fundtion so I can use the array
within the function.

Thanks.

 

[Guest]

Use the ParamArray keyword
Function zzz(ParamArray myarr())

 

[Guest]

And how do I enter the argument when I use the function.
Can I just do:

zzz(colors())

 

[Guest]

I'm pretty sure you would just pass the name: zzz(colors)

 

[Guest]

When I do that, it seems to only pass the first item in
the array.
For example, lets say I have the following function and
procedure:

Sub test()
Dim colors(1 To 10) As Integer

For i = 1 To 10
colors(i) = i + 10
Next i
zzz(colors)
End Sub

Function zzz(ParamArray myarr() As Variant)
Range("B1") = myarr(1)
End Function

When I use myarr(0) in the zzz function, it works fine,
but when I try to use myarr(1), I get a "Subscript out of
range" message.