Hi,

I'm trying to select two disjoint ranges of cells.

Here is my code:

Dim r1 As Range
Dim r2 As Range
Set r1 = Names("SS_ChurnAssums").RefersToRange.Offset(1, 0)
Set r2 = Range(Names("SS_WeightedChurn").RefersToRange.Offs et(1, 0),
Names("SS_WeightedChurn").RefersToRange.Offset(i, 0))

Application.Union(r1, r2).Select ' <-- Error thrown here.

I verified that r1 and r2 are valid ranges (by calling the .select method
and checking if they were selected). So the error is in the Application.Union
line. I search tons of places for a solution, and many ppl seem to be getting
the same problem.

What am i doing wrong?
Is there another way to select multiple ranges?

Thanks.