You were right, Nick
It is Range(rage1, range2) method I tried to find.
Regards
tskogstrom


NickHK skrev:

Think you want to use Range instead of Union. See the difference between
these 2 values :

Dim rng As Range

Set rng = Union(Range("A1"), Range("C3"))
MsgBox rng.Height

Set rng = Range(Range("A1"), Range("C3"))
MsgBox rng.Height

NickHK
P.S. Whilst not wrong, use of "Let" is largely ignored nowadays, as it is
optional. "Set" is required though.

"tskogstrom" wrote in message
oups.com...
I Have a rectangle I want to place at a location and set it's height.
To do that, I have "top" and "bottom" named ranges. Here are
specifications and what I tried:

'RAPP_REC_CASHFLOW = Rectangle name
'RAPP_TOP = Top of rectangle (= named range B2:G2)
'RAPP_BOTT = Bottom of rectangle (= named range B16:G16)

Tried with this, silly old me:-) :

Dim rng As Range
Set rng = Application.Union(Range("RAPP_TOP"), Range("RAPP_BOTT"))
Let ActiveSheet.Shapes("RAPP_REC_CASHFLOW").Top = Range("RAPP_TOP").Top
Let ActiveSheet.Shapes("RAPP_REC_CASHFLOW").Height = rng.Height

rng.Height make just one row of height ...
Any out there who can help?

kind regards
tskogstrom