Max,

Set rng = Application.Inputbox("Select range", Type:=8)

allows the selection of a range mid-macro, and a couple more inputboxes
could be added to get the limits, but that sounds like it would be better to
throw up a simple form to get the details, easier to control.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Max" wrote in message
...
"Leo Heuser" wrote:
.. You can add your own ranges using the set up shown below.
For one range: RandData = Array(Array("B2:B2000", 100, 10000))

Great sub, Leo !

Is there a simple way to bring over to Excel screen via say, an inputbox,
so
that we can define the clickable ranges and the numeric limits below in
Excel
itself ?

RandData = Array(Array("B2:B2000", 100, 10000), _
Array("F15:F23", 3, 11), _
Array("G1:H6", 2, 13))

Thanks
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---