Using Resize might be clearer in terms of intent. Just offered for
consideration.
Range("A2").Resize(Range("B1").Value ,1).Value = Range("A1").Value
--
Regards,
Tom Ogilvy
"Melanie Breden" wrote in message
...
Cell A1 contains Username and cell B1 contains a number
indicating how many times the names should be replicated
in the database.
I forgot a value:
Range("A2:A" & Range("B1").Value + 1).Value = Range("A1").Value
--
Mit freundlichen Grüssen
Melanie Breden
- Microsoft MVP für Excel -
http://excel.codebooks.de (Das Excel-VBA Codebook)