View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Gary''s Student Gary''s Student is offline
external usenet poster
 
Posts: 11,058
Default Method 'Union' of object '_Application' failed (Runtime Error 1004

Sub demt()
Set r1 = Range("A1")
Set r2 = Range("A2")
Application.Union(r1, r2).Select
End Sub

will work

Sub demt()
Set r1 = Sheets("Sheet1").Range("A1")
Set r2 = Sheets("Sheet2").Range("A2")
Application.Union(r1, r2).Select
End Sub

will throw a 1004 eror.


Are you sure the two ranges are on the same sheet??
--
Gary''s Student - gsnu200731


"vivmaha" wrote:

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.