assume EurGbp is in Cell A1 of the active sheet

set rng = Range(Left(Range("A1").Value,3))
set rng1 = Range(Right(Range("A1").Value,3))
msgbox rng.Address(External:=True) & vbNewLine & _
rng1.Address(External:=True)

--
Regards,
Tom Ogilvy

"bmeehan " wrote in message
...
i have a large list of defined names which are various currency and
futures prices. is there a way to have a subroutine or function access
these values w/o having to pass each one as am argument. depending on
the value entered into a cell i want to access a different defined
name. for example, if a cell has EurGbp entered in it i want to access
the EUR and GBP named range from the function. I have seen examples of
how to access a single defined range fro ma formula but not a large and
growing list of names. thanks.


---
Message posted from http://www.ExcelForum.com/