Workbooks.Openをネストさせて、二回使用すると二回目が開けない

Question

###前提・実現したいこと

Visual Basicにて、
Book1,Book2,Book3 がありそれぞれ
1)Book1に open -> book2を開く というコード
2)Book2に open -> book3を開く というコード
を書き、 Book1を開いた時、book3まで連鎖的に開けることを期待しました。

###発生している問題・エラーメッセージ
book3が開きません。
1,2の単独ですと動きます。
ですが、book1から開くと、エラーが返却されないにもかかわらず、なぜかbook2のコード内のWorkbooks.Open ("book2.xls").NameがBook1となるのです。
そしてWorkbooksにはbook3が入っていません。(開いていない)

###該当のソースコード

@book1

Sub Workbook_Open()
    MsgBox ("start")
    Workbooks.Open ("book2.xls")
End Sub

@book2

Sub Workbook_Open()
    MsgBox ("NO2 Open!")
    Workbooks.Open ("book3.xls")
End Sub

@book3

Sub Workbook_Open()
    MsgBox ("OK, done")
End Sub

###試したこと

それぞれbook2のbook3呼び出し時に、ブレイクポイントで止めてprint Workbooks.Open ("book2.xls").Nameすると、「book1」が帰ってきます。

###補足情報(言語/FW/ツール等のバージョンなど)

Microsoft Visual Basic version 14.2
Mac OX Yosemite

Answer 1

Windows7 Office2010では事象は再現せず、正しく連鎖的に開くことができました。
もしかしたらMac版特有のバグなのかもしれません。

代替案としてbook2はWorkbooks_Openではなく、独自のプロシージャを用意してBook1から呼び出すというのはどうでしょうか。これでやりたいことは実現できませんか。

@Book1

Sub Workbook_Open()
    MsgBox "start"
    Dim wb2 As Workbook
    Workbooks.Open("C:\book2.xlsm").wbOpen
End Sub

@Book2

Sub wbOpen()
    MsgBox "NO2 Open!"
    Workbooks.Open("C:\book3.xlsm").wbOpen
End Sub

@Book3

Sub wbOpen()
    MsgBox "OK, done"
End Sub

Comments

[sokha]

なんと解答いただけるとは思いませんでした。
そしてありがとうございます。windowsだと、いけるのですね。

それが分かっただけでもだいぶ違います。ありがとうございます。
代替案試して見ます。
terratailに初めて感謝します。ありがとうございます。

[sokha]

こちらで回答いただいた通り、独自のプロシージャを呼び出すことできちんと呼び出すことができました。
ありがとうございます。
こちらをベストアンサーとして、解決としたいと思います。