And on re-reading my initial post I accidentally used Application instead of
ThisWorkbook which absolutely will not work. I think I should just go and lie
down now...

Dim Data as Range

with Thisworkbook
set data = range(.names("Upper").referstorange, .names("Lower").referstorange)
end with
--
HTH...

Jim Thomlinson


"Jim Thomlinson" wrote:

I believe the code you posted assumes that those 2 named ranges are on the
active sheet. Assuming this code is in a standard code module then the code
you posted is equivalent to:

set rng=range(activesheet.range("lower"),activesheet.r ange("Upper"))

If the code is in a specific sheet then the default is that the named ranges
exist in that sheet.

Assuming that these are global named ranges the code I posted will always
work (assuming that lower and upper are on the same sheet).

If I have gone off the bean somewhere please post back. Most of my expertise
has been the result of this forum and trial and error. More error than
anything else...
--
HTH...

Jim Thomlinson


"Bob Umlas" wrote:

set rng=range(range("lower"),range("Upper"))
Bob Umlas
Excel MVP

"Jim Thomlinson" wrote in message
...
dim rng as range

with application
set rng = range(.names("Lower").referstorange,
.names("Upper").referstorange)
end with
--
HTH...

Jim Thomlinson


"Simon" wrote:

Hi,

I have two named ranges, lets call them "Lower" and "Upper", I want to
set a
range object called Data to be the range of cells between "Lower" and
"Upper", how can I do this, I keep getting error 400.

Thanks.
Simon