"Tom Ogilvy" ha scritto nel messaggio
...
I am not sure how a histogram generates a serial of casual number, but if
you mean randombetween, then it does not provide unique numbers.


sorry i have wrong to copy cody , this is my code :

Application.Run "ATPVBAEN.XLA!Random", ActiveSheet.Range("$P$2:$W$5000"), 8
_
, 5000, 7, , ActiveSheet.Range("$G$1:$H$32")

Is possible to write a function to generate a similar ATPVBAEN.XLA
option ?

tk