naming multiple ranges

[ranswrt]

I need to name mulitple ranges of cells that aren't connected. I tried:

Set rng1 = Range(xcell.Offset(2, 2), xcell.Offset(11, 2))
Set rng2 = Range(xcell.Offset(14, 2), xcell.Offset(59, 2))
Set rng3 = Range(xcell.Offset(62, 2), xcell.Offset(70, 2))
Set rng = Range(rng1, rng2, rng3)
rng.name = "alsestrng"

The set rng code doesn't work. How do I need to do this?
Thanks

 

[Barb Reinhardt]

Have you tried

Set rng1 = Union(xcell.Offset(2, 2), xcell.Offset(11, 2))

 

[Peter T]

Set rng = Union(rng1, rng2, rng3)
rng.Name = "alsestrng"

Regards,
Peter T

 

[ranswrt]

Thank You

Set rng = Union(rng1, rng2, rng3)
rng.Name = "alsestrng"

Regards,
Peter T