Union Method
Once rng4 has been set, the order of the unions is lost:
Sub Macro1()
Dim r As Range
For Each r In Selection
MsgBox (r.Address)
Next
End Sub
will produce the same messages if you select rng4 no matter how you
originally set it up.
--
Gary''s Student
"Noah" wrote:
Is it possible to use the Union method (or some other method) to join
together multiple ranges in an order that is different original order of
columns on the worksheet? For example, I would like rng4 in the macro below
to have column B on the left, column C in the middle, and column A on the
right. Thanks!
Sub macro1()
Sheets("Sheet1").Select
Set rng1 = Range("A1:A100")
Set rng2 = Range("B1:B100")
Set rng3 = Range("C1:C100")
Set rng4 = Application.Union(rng2, rng3, rng1)
rng4.Copy Sheets("Sheet2").Range("A1")
End Sub
|