Your VBA code for the parameters you intially set would look like this.....

Application.Run "ATPVBAEN.XLA!Random", , 30, 2000, 7, , ActiveSheet. _
Range("$A$2:$B$6")

The parameters can be changed into variables like this

Dim xVars As Long, xNumbers As Long, xRange As Range
xVars = 30
xNumbers = 2000
Set xRange = ActiveSheet.Range("$A$2:$B$6")

Application.Run "ATPVBAEN.XLA!Random", , xVars, xNumbers, 7, , xRange

By changing the variables (either user input or using VBA code) different
conditions for the RNG can be set.

--
Cheers
Nigel



"rsankh" wrote in message
...

Hey !!
I am using Random numer generator in a macro.I need input range to be
variable.

for generating random number I need values and respective probability.I
start recording a macro.initially I have 5 values and respective
probabilities.I apply random number generator on these values with the
parameters say 30 (number of variables) ;2000(number of Random numbers)
; discrete ditribution.one more parameter is needed that is "Values and
Probability input range";as there are 5 values,it takes range as
$A2$:$B$6 and generates the random numbers on a different sheet.

Now my problem is that how to take different inputs to generate random
numbers.I have recorded macro with five values.I want macro to work
with 6,7,8 ... intial values.basically I want to change the input
range.

How can I generate random numbers with "number of variables" and
"number of random numbers" other than 30 and 2000 respectively.
thanks in advance
rsankh


--
rsankh
------------------------------------------------------------------------
rsankh's Profile: http://www.msusenet.com/member.php?userid=1879
View this thread: http://www.msusenet.com/t-1870509512