Copy multiple ranges

[mgerard802]

I am trying to coy multiple named ranges, each on a different worksheet to another worksheet. Here is what I have so far, which I am running into problems with. I am getting an error when I try to copy. Any help would be appreciated. Thanks.

Private Sub Workbook_Activate()
Worksheets("ALL&quot.Range("B3:I10000&quot.ClearContents

Dim rGrp, rHld, Myrange As Range
Set rGrp = Worksheets("Group&quot.Range("Grp&quot
Set rHld = Worksheets("Holding&quot.Range("Hld&quot
Set Myrange = Union(rGrp, rHld)

Myrange.Copy Worksheets("ALL&quot.Range("b3&quot.PasteSpecial(xlPasteValues)


End Sub

 

[bryanbayfield]

You say you are getting an error when you are trying to copy, but I think you must be getting one before that where you are trying to make a union of two ranges which are on different sheets.

Your copy statement is wrong - it should be of teh form:

range.copy destination:=range_to_copy_to

But I don't think changing that will solve the whole problem.