Ed,

You can use the Rnd function to return a random number. For
example,

Dim Rng As Range
For Each Rng In Range("A1:A10")
Rng.Value = Rnd
Next Rng



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"ed" wrote in message
...
Does any have any code for generating random numbers and
then input them in a cell?