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
>