エクセルマクロ ブックをアクティブにしたい

マクロ初心者です。
エクセルのマクロでマクロボタンを押したら　別のブックのシートを呼び出すマクロを
作ったのですが、後ろに隠れてしまうのでアクティブにする為　下記のような記述に変えましたが、エラーになってしまいます。(実行時エラー”9”インデックスが有効範囲にありません)
エラーメッセージは出ますが、呼び出したシートはアクティブになっています。

一体何がエラーなのかよくわからなくて質問しました。
マクロド素人なので　わかりやすく説明頂ければありがたいです。


Sub 顧客注文データを開く()
'
' 顧客注文データを開く Macro
'

'
ChDir "C:\Users\Guest\Desktop\顧客注文データ"
Workbooks.Open Filename:="C:\Users\Guest\Desktop\顧客注文データ\" & Range("B2").Value & ".xlsx"

Windows("顧客注文データ.xlsm").Activate　　←←ここがエラーみたいです。
End Sub

No.3 回答者： TH69 回答日時： 2017/07/08 14:43

ブックを開くだけなら「ChDir "C:\Users\Guest\Desktop\顧客注文データ"」の部分は不要では？

どうせならそれを利用し、変数myPathを「"C:\Users\Guest\Desktop\顧客注文データ\"」として

Sub 顧客注文データを開く()
Dim myPath As String
myPath = "C:\Users\Guest\Desktop\顧客注文データ\"
Workbooks.Open Filename:=myPath & Range("B2").Value & ".xlsx"
Workbooks("顧客注文データ.xlsm").Activate
End Sub

No.2 回答者： ママチャリ 回答日時： 2017/07/07 08:18

「←←ここがエラーみたいです。

」のところを次のようにしてみてはいかがですか？

ThisWorkbook.Activate

No.1 回答者： x-1919 回答日時： 2017/07/06 16:04

Dim orderBook As Workbook

Set orderBook = Workbooks.Open(Filename:="C:\Users\Guest\Desktop\顧客注文データ\" & Range("B2").Value & ".xlsx")

orderBook.Worksheets(1).Activate

この回答へのお礼

回答ありがとうございます。やってみましたが、次は構文エラーとなってしまいます( ﾉД`)


Sub 顧客注文データを開く()
'
' 顧客注文データを開く Macro
'

ChDir "C:\Users\Guest\Desktop\顧客注文データ"
Dim orderBook As Workbook Set orderBook =　←これがエラーです
Workbooks.Open Filename:="C:\Users\Guest\Desktop\顧客注文データ\" & Range("B2").Value & ".xlsx"
orderBook.Worksheets("在庫管理＆注文表.xlsm").Activate
End Sub

どこが間違ってるのでしょうか？

お礼日時：2017/07/06 18:08