Try this; it should work assuming that "r" is a range variable that has
already been set.

Set u_r = Application.Union(r, Cells(r.Row, r.Column + 1))

--
Jay


"Barb Reinhardt" wrote:

How do I write the Union statement for the union of range "r" and the
cell(r.row,r.column+1)

Thanks