I am generating random numbers through the following code:

Application.Run "ATPVBAEN.XLA!Random", ActiveSheet.Range(RanRowStart), 1,
NumDays, Distribution, , Param1, Param2

In this case NumDays number of random numbers are generated and pasted to
cell starting from RanRowStart. Suppose if NumDays is 15 and RanRowStart is
cell o25, then excel is writing the 15 random numbers generated to cell o25
and downwards.

I want to create an array and transfer the random numbers there.
i have used following code:
Dim ArrayRnd () as Double
Re Dim ArrayRnd as (NumDays,1)

Application.Run "ATPVBAEN.XLA!Random", ArrRand(1:NumDays), 1, n,
Distribution, , Param1, Param2

I want to give the array the random number generated. The code above is not
working. request help
regards
pradip