If the number of cells is in cell A1, use code like the
following:

Dim Rng As Range
Set Rng = Range("B1").Resize(Range("A1").Value,1)


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



"Aksel Børve" wrote in message
...
is it possible to make a macro that use the value in a cell
(eg.1002), and
make a Range with same number (1002 cells) of cell's that's
diplay in the
one cell.