array

In one module, I have written 3 VBA functions.
In each VBA function I have 10 arrays as follow:
Dim Aarr() As Variant: Aarr = Array("a", "¸b", "c", "d")
Dim Barr() As Variant: Barr = Array("aa", "¸bb", "cc", "dd")
Etc…
The 10 arrays are exactly the same for the 3 functions and I repeat them for
each function.
Is there away to write only once the arrays in the module in order to work
for the 3 VBA functions?

Τhanks, for the answer.

"??????? ?.?." <@discussions.microsoft.com> schrieb im Newsbeitrag
news:[email protected]...
> In one module, I have written 3 VBA functions.
> In each VBA function I have 10 arrays as follow:
> Dim Aarr() As Variant: Aarr = Array("a", "¸b", "c", "d")
> Dim Barr() As Variant: Barr = Array("aa", "¸bb", "cc", "dd")
> Etc.
> The 10 arrays are exactly the same for the 3 functions and I repeat them
> for
> each function.
> Is there away to write only once the arrays in the module in order to work
> for the 3 VBA functions?

Declare the arrays on module level instead of declaring them for each
function, thus you will get public variables.

cheers,
Stephan

Declare the variables as private variables before the 3 functions, they will
then be in scope of all 3

Private Aarr() As Variant
etc.

Sub rtn1()
....
End Sub

and so on

--

HTH

RP
(remove nothere from the email address if mailing direct)


"??????? ?.?." <@discussions.microsoft.com> wrote in message
news:[email protected]...
> In one module, I have written 3 VBA functions.
> In each VBA function I have 10 arrays as follow:
> Dim Aarr() As Variant: Aarr = Array("a", "¸b", "c", "d")
> Dim Barr() As Variant: Barr = Array("aa", "¸bb", "cc", "dd")
> Etc.
> The 10 arrays are exactly the same for the 3 functions and I repeat them
for
> each function.
> Is there away to write only once the arrays in the module in order to work
> for the 3 VBA functions?
>
> ?hanks, for the answer.