Resize Range

[kajohnson9]

I have a named range with 2 non-contiguous columns of data. It initially contains 5 rows. I want to resize the range by adding 1 row. When the data is contiguous, no problems. But the standard .Range(Name).Resize (NumberOfRows+1) isn't working, no matter what value I put in for the column count.

Any ideas?

 

[MickG]

Try This:-

Dim rng As Range
Set rng = Range("MyRng")
Set rng = Union(rng.Areas(1).Resize(rng.Rows.Count + 1), rng.Areas(2).Resize(rng.Rows.Count + 1))
rng.Name = "MyRng"

 

[kajohnson9]

Mick,
Thanks for the response. This works with just one change. I have to use
Set rng=.Range("myName") 'need to use the .

But now it works just fine. Guess I'll have to learn about Unions.
Thanks,
Keith