Storing a range of values and reusing

[iancook1982]

Hi,
I have a range of dates (that changes in size) so i have been using

Dim myrange As Range
Set myrange = Worksheets("Ending Unit Output").Range("D1",Selection.End(xlToRight))

How do I store the values of this range so that in another if statement I can simply paste/insert these values.
I can't use selection.copy because that will start moving about my activecell reference within the IF statement.

Hope that makes sense!
Thanks,
Ian.

 

[Andrew Poulsom]

You can store the values in a variant array like this:

Dim myrange As Range
Dim myvalues as Variant
Set myrange = Worksheets("Ending Unit Output").Range("D1",Selection.End(xlToRight))
myvalues = myrange.Value