Re: referencing a name from another book

Dim bk as Workbook
Dim rng as Range
Dim bNotOpen as Boolean
on Error Resume Next
set bk = Workbooks("Book2.xls")
On Error goto 0
if bk is nothing then
set bk = Workbooks.Open("C:\temp\book2.xls")
bNotOpen = True
End if
set rng = bk.Names("MyNamedRange").RefersToRange
v = rng.Value
if bNotOpen then
bk.Close SaveChanges:=False
set rng = nothing
set bk = nothing
End if


--
Regards,
Tom Ogilvy


"Gixxer_J_97" <GixxerJ97@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:B9DBEA6F-E0BF-41D1-84C3-D5794B472045@xxxxxxxxxxxxxxxx
> hi all
>
> how do i reference a named range from another book?
>
> just a generic example would be sufficient
> ie if my named range is
>
> 'MyNamedRange' and it is defined in the workbook 'Book2.xls' on work***
> MySheetName in path c:\temp
>
> how do i reference MyNamedRange in 'Book3.xls'
>
>
>


.

Loading