Please note that you should put CODE Tags around your code. The Forum Moderators are quite strict about following the forum rules ... and this is one of them.

Assuming you do that, try this:

Dim MyNum As Long
MyNum = Range("A15").Value
Set MyRange = Range("A1: A" & MyNum)
or

Set MyRange = Range("A1: A" & Range("A15").Value)



Regards