| 
    
     |  | おはようございます。 
 >新たに、発見
 >セルに =Sheet1!mm と入力するとに =Book.xls!mm に
 >=Book1.xls!mm と入力すると =Sheet2!mm 書き変わる。
 >
 >>シート別の名前なら、
 >>
 >>Worksheets("sheet2").Names("mm").RefersToRange
 >>
 >>や
 >>
 >>ThisWorkbook.Names("Sheet2!mm").RefersToRange
 >>
 >>というようにシート名からの指定ではっきり指定すると言う方法では
 >>いけないのですか?
 >
 >Book全体のmmを持ちつつ使い分けたいと考えていたのです。(あっしの思想的に)
 >VBA上で ThisWorkbook.Names("Book1.xls!mm").RefersToRange
 >というのもうまくいかないようですし。
 >名前を変えて運用しますかね〜
 独自の名前関数を作るのは? いかがですか!!
 
 一例ですが、標準モジュールに
 '===================================================
 Function myname(nm As String)
 myname = Names(nm).RefersToRange.Value
 End Function
 
 として、
 シートでは
 
 =myname("mm")
 
 とか
 
 =myname("sheet2!mm")
 
 等として運用する
 
 検討してみてください。
 
 |  |