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